Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel filtre élaboré en vba

filtre élaboré en vba

1 réponse
Avatar
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:=False

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
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Asterix
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