Listbox >>> Multiselect ??

KyFranRD

XLDnaute Occasionnel
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
 
Dernière édition:

Papou-net

XLDnaute Barbatruc
Re : Listbox >>> Multiselect ??

Bonjour KyFranRD,

Comme ceci, peut-être :

Code:
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.
 

Discussions similaires

Réponses
4
Affichages
252

Statistiques des forums

Discussions
312 814
Messages
2 092 339
Membres
105 370
dernier inscrit
Leheryboriziny