Remplissage listbox depuis un filtre

[albios]

Bonjour à tous,

Voici mon bout de code:

Selection.AutoFilter Field:=2, Criteria1:="=XXX", Operator:=xlOr, _
Criteria2:="=YYY"

With Worksheets("ABCD").Range("A2")
TRUC = Range(.Cells, .End(xlDown)(1, 3)).Address
End With

ListBox1.RowSource = TRUC

Le probléme c'est que je récupére dans le listbox toute les cellules, alors que je voudrais uniquement celles qui apparaisent dans le filtre.

Merci d'avance.

Al

 

[Robert]

Salut Albios, salut le forum,

Pas vraiment une réponse à ta question mais plutôt une autre méthode que j'avais proposée à Serge. Le filtre ne se fait pas dans la feuille mais au niveau d'un UserForm. Deux propositions pour filtrer, une ComboBox ou un TextBox. Regarde la pièce jointe.

À plus,

Robert

 

[albios]

Merci Robert, c'est une autre solution qui me va très.
C'est sympa.
Merci

Al