Filtrer base de données en fonction d'une listbox

Signaler
Messages postés
1
Date d'inscription
dimanche 19 mars 2017
Statut
Membre
Dernière intervention
19 mars 2017
-
Bonjour je souhaiterai filtrer une base de données en fonction d'une sélection d'item dans une listebox....


Quelqu'un a une idée et peut me filer un coup de main ! Merci beaucoup



Le problème avec mon code c'est qu'il ne fait pas plusieurs filtres à la fois


Private Sub bb()

With Worksheets("feuil1")

.AutoFilterMode = False
der = .Cells(.Rows.Count, 6).End(xlUp).Row

For i to der
' If Me.ListBox1.Selected(i) = True Then AutoFilterMode.Range("F11:G" & der).AutoFilter Field:=6, Criteria1:=Me.ListBox1.List(i).Text
next i
End With
End Sub