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
231
Réponses
17
Affichages
909
Réponses
2
Affichages
172

Statistiques des forums

Discussions
312 435
Messages
2 088 396
Membres
103 838
dernier inscrit
noureddine