Copier caractère séparé de

Bonjour à tous,

J'ai un petit soucis pour copier les caractères du'une cellule et les répartir dans des autres.

Je m'explique: en A1 j'ai par exemple:

;1;;Capot haut;160615-70-010;Acier inoxydable;2

J'aimerai qu'en A2= " "; B2="1";C2="Capot haut" etc..

Je n'arrive pas à trouver la solution sous VBA.

Merci d'avance.

Axel

Bonjour,

Avec Données > Convertir > Délimité et Séparateur= ';' ... ça devrait fonctionner sans VBA (voir du côté de split en vba)

Bonjour,

En VBA, tu as la méthode "TextToColumns" :

Sub Test()

    Range("A1").TextToColumns Range("A2"), 1, 1

End Sub

Bonjour

avec Split

Sub TestSplit()
L = 1
Text = Split(Replace(Range("A" & L).Value, ";;", ";"), ";")
    For C = LBound(Text) To UBound(Text)
        Cells(L, C + 2).Value = Text(C)
    Next
End Sub

A+

Maurice

Le code de archer sans boucle :

Sub TestSplit()

    L = 1
    Text = Split(Replace(Range("A" & L).Value, ";;", ";"), ";")
    Range(Cells(2, 1), Cells(2, UBound(Text) + 1)).Value = Text

End Sub

Bonjour,

Merci pour votre aider cela fonctionne parfaitement =)

à bientôt