Plage variable dans AdvancedFilter

[blord]

Bonjour à tous,

Est-il possible d'avoir une plage variable pour la sélection des critères sur le AdvancedFilter ?

Dans le bout de code ci-joint, la plage de critères se situe dans la feuille "info" au range "E2:E4".

J'aimerais que la plage débute bien en "E2" mais qu'elle se termine avec la dernière cellule qui contien une info.

Sheets("Stat CD Conso").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("info").Range( _
"E2:E4"), CopyToRange:=Worksheets("Stat CD").Range("A1"), Unique:=False


J'ai essayé ceci :

Sheets("Stat CD Conso").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("info"). _
Range("E2", Range("E2").End(xlDown)), CopyToRange:=Worksheets("Stat CD").Range("A1"), Unique:=False


Mais cela donne une erreur ?

Merci pour votre aide !

Benoit Lord

 

[tototiti2008]

Re : Plage variable dans AdvancedFilter

Bonjour blord,

peut-être comme ça ?

CriteriaRange:=Sheets("info").Range("E2").currentregion

 

[blord]

Re : Plage variable dans AdvancedFilter

Bonjour tototiti2008,

Merci beaucoup, ça fonctionne très bien !

Bonne fin de journée !

Blord