Bonsoir,
je pense que j'ai tout dit dans l'intitulé
J'ai trouvé ceci sur le forum, ca convient pas pour moi, moi c'est le contenu du textbox en entier sans le sélectionner
je pense que j'ai tout dit dans l'intitulé
J'ai trouvé ceci sur le forum, ca convient pas pour moi, moi c'est le contenu du textbox en entier sans le sélectionner
Code:
Option Explicit
Dim s, i% 'mémorisation
Private Sub TextBox1_Change()
s = Split(TextBox1, ",")
i = 0
End Sub
Private Sub CommandButton1_Click()
With TextBox1
.SetFocus
If .Text = "" Then TextBox2 = "": Exit Sub
.SelStart = InStr(.Text, Trim(s(i))) - 1
.SelLength = Len(Trim(s(i)))
End With
TextBox2 = Trim(s(i))
i = i + 1
If i > UBound(s) Then i = 0
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "Jean-Paul Belmondo, Mia Farrow, Laura Antonelli, Daniel Ivernel, Daniel Lecourtois"
End Sub