Copier une partie de la cellule

Question

Bonjour,

J'essai de trouver une manière (VBA ou Formule) pour copié une partie d'une cellule pour mettre cette partie dans la cellule d'à côté.

Voici ce qu'il y a dans la cellule:

Code OEM : 3782B003AA     <br>

<div><br>

</div>

Pour : ImageRunner Advance C2020 ImageRunner Advance C2030 ImageRunner Advance C2225 ImageRunner Advance C2230<br>

<br>

Type : OEM<br>

Categorie : Toner<br>

Couleur : Noir<br>

Rendement : 23 000

J'aimerais seulement avoir la partie souligné dans la cellule d'à côté.

Merci pour votre réponse

Answer 1

Voici :

Sub test3()

  Dim Debut As Variant, Fin As Variant, C As Range

  For Each C In Range("A1", Cells(Rows.Count, 1).End(xlUp))

    Debut = InStr(1, C.Value, "Pour :")

    Fin = InStr(1, C.Value, "C2230")

    If Debut > 0 And Fin > 0 Then

      Debut = Debut + 7

      Fin = Fin + 5

      C.Offset(, 1) = Mid(C.Value, Debut, Fin - Debut)

    End If

  Next C

End Sub

Daniel

Answer 2

Sub test1()

  Dim Debut As Variant, Fin As Variant

  Debut = InStr(1, [A1], "Pour :")

  Fin = InStr(1, [A1], "C2230")

  If Debut > 0 And Fin > 0 Then

    Debut = Debut + 7

    Fin = Fin + 5

    [B1] = Mid([A1], Debut, Fin - Debut)

  End If

End Sub

Mais il est peut-être préférable d'extraire le texte souligné ?

Je posterais cette autre solution dès que possible.

Daniel

Answer 3

Surprenant, j'ai essayé avant de répondre :

et la macro testée :

Sub test()

  [B1] = Mid([A1], 59, 103)

End Sub

Quel est le message d'erreur ?

Daniel

Answer 4

Bonjour Daniel,

Merci pour votre réponse. Exel de reconnais pas la fonction =MID

Bien à vous,

Fred

Answer 5

Bonjour,

La ligne suivante copie le texte de A1 en B1 :

[B1] = Mid([A1], 59, 103)

Cordialement.

Daniel