1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VBA Office (Excel, Word ...)

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
Afficher la suite