Bonjour à tous,
J'ai fait une macro qui fait trois actions:
- Élabore un filtre avancé à partir d'une table de donnée contenue dans ma feuille "Feuil2"
- Copie la plage de cellules filtrées contenue dans ma feuille "Feuil1"
- Insère la plage de cellules filtrées dans une cellule de ma feuille "feuil3"
Voici le code:
Sub filtrer()
'
' filtrer Macro
'
Sheets("Feuil2").Range("A6:F33").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("Feuil1!Criteria"), CopyToRange:=Range( _
"Feuil1!Extract"), Unique:=False
Sheets("Feuil1").Select
Range("F11:I17").Select
Selection.Copy
Sheets("Feuil3").Select
Range("A21").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
Cette macro marche très bien mais j'ai gros souci:
Le range("F11:I17").select qui sélectionne ma plage de cellules filtrées est une plage fixe pourtant j'aimerais trouver un moyen de sélectionner exactement la plage de cellules filtrées quel qu’en soit la largeur de ma plage de cellules. Cette méthode me permettra par exemple de prendre en compte les mises à jours de ma table de données (suppressions ou ajouts de lignes).
Je ne sais pas si c'est faisable mais bon...
Cordialement
ZOLEKO