VBA : CurrentRegion dans Filtre Avancé

[Kernoz]

Bonjour à tous,

Voila le probleme : Je voudrais remplacer le range de reference de mon filtre avancé par un "CurrentRegion" pour anticiper des rajouts de données.

Voici le code d'origine :

Workbooks("CA Amont.xlsm").Sheets("BDD CA Amont").Range("A8:L45805"). _
        AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A12:D13"), _
        CopyToRange:=Range("A17:D17"), Unique:=True

Je voudrais remplacer le Range("A8:L45805") par Range("A8").CurrentRegion mais ca ne passe pas ... je ne sais pas pourquoi

D'avance merci pour vos réponses !

 

[Compte Supprimé 979]

Re : VBA : CurrentRegion dans Filtre Avancé

Bonjour Kernoz,

Perso, je n'aime pas utiliser ".CurrentRegion" car cela peut être complètement faux

Tu peux essayer ceci

Workbooks("CA Amont.xlsm").Sheets("BDD CA Amont").Range("A8:L" & Range("L" & Rows.Count).End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A12: D13"),CopyToRange:=Range("A17: D17"), Unique:=True

En supprimant l'espace entre : et D

A+