Je ne parviens déjà pas à alimenter la première textbox. Pour une seul textbox avec la propriété Multiselect >>> single, pas de problème. Mais dés que je choisi Multiple ou extended, rien ne se passe.
après recherche j'ai trouvé cela:
Dim I As Integer, y As Integer
With Me.ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
y = y + 1
TextBox1.Value = .List(I)
End If
Next I
End With
ça fonctionne nickel pour la textbox1. Mais comment alimenter la texbox 2?
Dim I As Integer, y As Integer
With Me.ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
y = y + 1
Me.Controls("TextBox" & y).Value = .List(I)
End If
Next I
End With