Copier les mot d'une cellules dans des textbox en respectant l'ordre des mots

[creolia]

Bonjour a tous

Dans ma colonne A1 j’ai des mots sous se format Toto,Nono,Lili chaque fois sépare par une virgule.

Dans mon USF j’ai 3 Textbox : Textbox1 Textbox2 Textbox3

Je voudrais lancer une macro pour que le premier Mot se place dans la textbox1 le second mot dans la textbox 2 le troisième dans la textbox3 ……

Comment pourrais-je faire svp merci

 

[Bebere]

Re : Copier les mot d'une cellules dans des textbox en respectant l'ordre des mots

bonjour Creolia
voilà un exemple

Private Sub UserForm_Initialize()
Dim a, i As Byte

Feuil1.Activate
a = Split([A1], ",")
For i = LBound(a) To UBound(a)
Me("TextBox" & i + 1) = a(i)
Next i

End Sub

 

[creolia]

Re : Copier les mot d'une cellules dans des textbox en respectant l'ordre des mots

Bonjour bebere un grand merci sa faisais 5 jour que je cherchais cette solution à tres bientot