filtre élaboré en vba

Le
LARNAUDIE Serge
j'ai le filtre suivant :
Windows("toto.xls").Activate
ActiveCell.Range("A1:I117").AdvancedFilter Action:=xlFilterInPlace, _

CriteriaRange:=Workbooks("accueil.xls").Sheets("Menu").Range("A17:A22") _
, Unique:lse

Mon problème, c"est que le fichier toto.xls n'a pas toujours le même nombre
de ligne et ma liste de critère ("A17:A22") peut aussi avoir un nombre de
ligne #

il me faudrait quelque chose dans le genre
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Mais je n'y arrive pas !!
Merci
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Asterix
Le #1336773
bonjour serge,

peut-etre avec CurrentRegion (qui correspondant en vba au raccourci Ctrl *
pour sélectionner la zone en cours).
dans ce cas, remplacer :
ActiveCell.Range("A1:I117").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Workbooks("accueil.xls").Sheets("Menu").Range("A17:A22") _
, Unique:úlse


par

ActiveCell.Range("A1").CurrentRegion.AdvancedFilter
Action:=xlFilterInPlace, _


CriteriaRange:=Workbooks("accueil.xls").Sheets("Menu").Range("A17").CurrentR

egion _
, Unique:úlse


Publicité
Poster une réponse
Anonyme