Filtre sur une list Box
lauraSoe
Messages postés
29
Date d'inscription
Statut
Membre
Dernière intervention
-
lauraSoe Messages postés 29 Date d'inscription Statut Membre Dernière intervention -
lauraSoe Messages postés 29 Date d'inscription Statut Membre Dernière intervention -
Bonjour :)
Je re-re-reviens vers vous ! pour un peu d'aide je cherche un peu partout mais je ne trouve pas...
En faite j'ai un UserForm et dans ce UserForm j'ai deux listes. Dans la première j'ai toute mes références et j'ajoute dans la seconde celles que je veux filtrer à partir de la première.
Jusque là c'est bon.
En fait ce qui me manque, c'est que quand j'appuie sur le bouton valider, ça filtre automatiquement ma feuille par rapport aux références qui sont dans ma list2.
Comment faire?
Merci d'avance de votre aide !
Bonne journée!
Laura
PS: voici le lien de mon fichier https://www.cjoint.com/?0GhlH0eT1st
Je re-re-reviens vers vous ! pour un peu d'aide je cherche un peu partout mais je ne trouve pas...
En faite j'ai un UserForm et dans ce UserForm j'ai deux listes. Dans la première j'ai toute mes références et j'ajoute dans la seconde celles que je veux filtrer à partir de la première.
Jusque là c'est bon.
En fait ce qui me manque, c'est que quand j'appuie sur le bouton valider, ça filtre automatiquement ma feuille par rapport aux références qui sont dans ma list2.
Comment faire?
Merci d'avance de votre aide !
Bonne journée!
Laura
PS: voici le lien de mon fichier https://www.cjoint.com/?0GhlH0eT1st
1 réponse
-
Je viens de trouver un bout de code dans un autre forum , en adaptant , ça donne ça:
Private Sub CommandButton3_Click()
Dim i As Integer
Dim j As Integer
Dim tableau(1 To 20)
nb = ListBox2.ListCount
j = 1
For i = 0 To nb - 1
If ListBox2.Selected(i) Then
tableau(j) = ListBox2.List(i)
j = j + 1
End If
Next i
If j <> 1 Then
Worksheets("Feuil1").Range("$A$1:$DJ$500000").AutoFilter Field:=1, Criteria1:=tableau, Operator:=xlFilterValues
Else
Worksheets("Feuil1").Range("$A$1:$DJ$500000").AutoFilter Field:=1
End If
'Masquer le Userform
UserForm2.Hide
End Sub
Seul hic, ça marche pas ...
