blord
XLDnaute Impliqué
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
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