Discussion :

[laurasoe]

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!
Laura

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

[casefayere]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laurasoe]

ça marche ! merci beaucoup

Du coup je marque bouton résolu !