Filtre avancé multi critères avec macro

Bonjour le forum,

J'ai une liste de noms avec différents statuts en colonne.

Je souhaiterais filtrer les données (extraction) dans une autre feuille suivant une zone de critères avec le "filtre avancé" du menu "Données"

relié à un bouton.

Ma zone de critères comporte 3 lignes et l'extraction se fait très bien mais si je saisis une 4e (voire plus) de lignes, évidement le code ne met pas à jour la zone de critères.

Que faut il que je modifie dans le code pour que la zone de critères A1:K3 se mette jour avec le nombre de lignes saisies?

Sub Filtrer()

Application.CutCopyMode = False

Range("matrice").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

"A1:K3"), CopyToRange:=Range("M2:Q2"), Unique:=False

End Sub

Merci de votre aide!

18filtreavance.xlsm (22.43 Ko)

Bonjour,

A tester.

J'ai mis les données sous forme de tableau.

Cdlt.

108filtreavance.xlsm (31.82 Ko)

Merci mille fois Jean Eric, ça marche très bien !

Rechercher des sujets similaires à "filtre avance multi criteres macro"