Filtrer une feuille avec listbox

Bonjour :)

Je 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! :mrgreen:
Laura

PS: voici le lien de mon fichier http://cjoint.com/?0GhlH0eT1st

Bonjour,

Je ne sais pas si ce code correspond à ta demande mais essayes-le (si j'ai compris)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton3_Click() Dim Derlg As Range, x As Long Dim FTre() ReDim FTre(ListBox2.ListCount) Set Derlg = Range("A" & Rows.Count).End(xlUp) For x = 0 To ListBox2.ListCount - 1 FTre(x) = ListBox2.List(x, 0) Next x Range("A1", Derlg).AutoFilter Field:=1, Criteria1:=FTre, Operator:=xlFilterValues UserForm2.Hide 'ou "unload me"     End Sub

---

ça marche ! merci beaucoup :)

Du coup je marque bouton résolu !
:mrgreen: