Listbox >>> Multiselect ??

[KyFranRD]

Bonjour

Quelqu'un pourrait-il m'expliquer comment fonctionne la propriété Multiselect d-un listbox?

Je veux alimenter par deux clics successifs sur cette listbox, 2 textbox.

1er clic >>>> donnée listbox renvoyées vers textbox1
2 ème clic >>> -----------------------------textbox2

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?

Merci à l'avance

 

[Papou-net]

Re : Listbox >>> Multiselect ??

Bonjour KyFranRD,

Comme ceci, peut-être :

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

Cordialement.

 

[KyFranRD]

Re : Listbox >>> Multiselect ??

bonjour Papou-net

nickel, impec, chapeau bas etc etc

merci encore ça marche à merveille