VBA: Un textbox qui contient plusieurs informations

Bonjour,

Avec les fonctions Split, Left et Instr (cf l'aide en ligne sur le site msdn), tu peux, par l'intermédiaire d'un bouton de commande faire comme ceci :

Private Sub CommandButton1_Click()
[C6] = Split(TextBox1, "+")(0)
[D6] = Split(TextBox1, "+")(1)
[E6] = Split(TextBox1, "+")(2)
[E6] = Left([E6], InStr([E6], "=") - 1)
End Sub

Ce code fonctionne s'il n'y a que deux signes +.
Pour adapter, le cas échéant, il conviendra de boucler sur la fonction Split, grâce à LBound et UBound (cf aide en ligne) :

Private Sub CommandButton1_Click()
Dim i As Integer
For i = LBound(Split(TextBox1, "+")) To UBound(Split(TextBox1, "+"))
    Cells(6, i + 5) = Split(TextBox1, "+")(i)
Next i
Cells(6, i + 4) = Left(Cells(6, i + 4), InStr(Cells(6, i + 4), "=") - 1)
End Sub

Nota : la notation [C6] correspond à Range("C6") ou Cells(6, 3) ou Sheets("NomDeMaFeuille").Range("C6"). Après tout dépend du degré de précision souhaité, ou si l'on veut écrire dans une feuille masquée ou ... etc...

Merci!
ce code marche bien, il faut juste que je l'adapte pour mon cas :)

une remarque: dans la première cellule le " s'affiche aussi