[VB EXCEL] Filtrer feuille excel via listbox

Filtrer feuille excel via listbox [VB EXCEL] - VB/VBA/VBS - Programmation

Marsh Posté le 03-06-2013 à 09:31:53    

Bonjour tout le monde,
 
Le titre du topic est assez explicite. Je n'ai pas de fichier excel exemple précis à vous soumettre, je suis juste à la recherche d'un bout de code me permettant de filtrer une feuille excel dont le critère de filtre serait les items selectionnés dans ma list box. Je précise bien LES items parce que plusieurs items pourraient être selectionner dans la listbox donc autant de critères pour le filtre. Je pensais utiliser un filtre élaboré (car on peut avoir plus de 2 critères) mais son utilisation reste assez confuse pour moi. J'espère que vous avez compris ma demande sinon n'hésitez pas à me redemander.
 
merci d'avance

Reply

Marsh Posté le 03-06-2013 à 09:31:53   

Reply

Marsh Posté le 31-07-2013 à 14:59:59    

bonjour à tous, je repasse par là pour vous dire que j'ai finalement réussi à faire ce que je voulais à savoir trier une feuille excel avec une listbox.  
Je vous met la solution sachant qu'il ne faut pas oublier de changer les propriétés de la listbox pour autoriser le multiselect.
 
Dim tableau(1 To 20)
nb = ListBox1.ListCount
j = 1
For i = 0 To nb - 1
If ListBox1.Selected(i) Then
tableau(j) = ListBox1.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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed