listbox multiselection filtrer

roro69

XLDnaute Impliqué
Bonjour et merci du temps consacré
Voilà ce que je souhaiterais faire:
J'ai deux listbox dans mon USF
Listbox1 ET ListBOX2
Donc la listbox1 est chargé avec les valeurs d'une colonne;ensuite je fltre les valeurs de la listbox1 comme ceci pour charger ma Listbox2:
Set rgnu = Feuil16.Range("A7", Feuil16.Range("A65536").End(xlUp))

With ListBox2
.Clear
For Each cel In rgnu
If cel = ListBox1 Then
.AddItem cel.Offset(0, 1)

End If
Next cel
If .ListCount > 0 Then .ListIndex = 0
End With
Jusque là pas de problème mais ce que souhaiterais faire c'est de permettre la multiselection dans la listbox1 et là je ne vois pas comment faire.
Merci d'avance pour vos réponses
 

Discussions similaires

Réponses
4
Affichages
239
Réponses
17
Affichages
938
Réponses
2
Affichages
187

Statistiques des forums

Discussions
312 613
Messages
2 090 231
Membres
104 454
dernier inscrit
alaindeloin.1976