K Kernoz XLDnaute Occasionnel 19 Juillet 2012 #1 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 : Code: 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 !
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 : Code: 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 !
C Compte Supprimé 979 Guest 19 Juillet 2012 #2 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 Code: 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+ Vote positif 0 Vote négatif
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 Code: 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+