Vba séparer chaines de caractère d'1 cellule

benama34 -  
 Invitey -
Bonjour,
Sous Excel vba j'ai une cellule contenant plusieurs chaines de caractères séparées par un point virgule du style "ben ;rom;jean;zfzf"
le nombre de chaines de caractéres peut varier
il me faut extraire chaque chaine de caractère dans des cellules différentes
j'ai ce code qui marche seulement dans le cas ou il y a deux chaines de caractères.

Sub hh()
Dim CMM(20) As String

Sheets("test").Select

j = 1
i = 1

CMM(i) = Range("A1").Value

Do

ben = CMM(i)

CMM(i) = Left(ben, InStr(ben, ";"))
Sheets("test").Cells(j, 2).Value = CMM(i)

CMM(i + 1) = Right(ben, InStr(ben, ";"))
Sheets("test").Cells(j, 3).Value = CMM(i + 1)

i = i + 1
j = j + 1

Loop While InStr(CMM(i), ";") <> 0



End Sub
A voir également:

1 réponse

Réponse 1 / 1
ShaBoo Messages postés 392 Date d'inscription   Statut Membre Dernière intervention   50
 
Bonsoir,

Tu peux utiliser la fonction Split : 

Sub test()
    Dim a As Variant
    a = Split("ben ;rom;jean;zfzf", ";" )
    MsgBox a(0)
    MsgBox a(1)
    MsgBox a(2)
    MsgBox a(3)
End Sub
9
Invitey
 
Merci pour la réponse qui me sert aussi!
0

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses