Filtre avancé multi critères avec macro Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
christian53
Membre habitué
Membre habitué
Messages : 113
Appréciation reçue : 1
Inscrit le : 16 mai 2014
Version d'Excel : Office 365

Message par christian53 » 4 novembre 2018, 23:04

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!
FiltreAvance.xlsm
(22.43 Kio) Téléchargé 8 fois
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'176
Appréciations reçues : 637
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 4 novembre 2018, 23:37

Bonjour,
A tester.
J'ai mis les données sous forme de tableau.
Cdlt.
FiltreAvance.xlsm
(31.82 Kio) Téléchargé 55 fois
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Avatar du membre
christian53
Membre habitué
Membre habitué
Messages : 113
Appréciation reçue : 1
Inscrit le : 16 mai 2014
Version d'Excel : Office 365

Message par christian53 » 5 novembre 2018, 01:43

Merci mille fois Jean Eric, ça marche très bien !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message