Discussion :

[monteverest]

Bonjour,

Pourriez vous me dire comment on déclare un tableau variable et des critère variables dans un filtre élaboré SVP ?

Pour moi cela devient trop dur dur ...

Cordialement

[78chris]

Bonjour


La question n'est pas limpide du tout.

Si par variable tu parle du nombre de lignes du tableau à filtrer, le plus simple est de ne rien mettre sous le tableau et de se référer aux colonnes complètes.

Pour le reste précise ta question...

[Philippe Tulliez]

Bonjour,
Comme Chris, je ne comprends pas ta question.
Un peu de lecture Les filtres avancés ou élaborés dans Excel

[monteverest]

Bonjour


La question n'est pas limpide du tout.

Si par variable tu parle du nombre de lignes du tableau à filtrer, le plus simple est de ne rien mettre sous le tableau et de se référer aux colonnes complètes.

Pour le reste précise ta question...

Bonjour,

Suite à un enregistrement automatique d'un filtre élaboré, ça me donne ce qui suit :

Range("A27:V65536").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:V10"), Unique:=False

Pour créer un filtre élaboré on me demande une plage (Range("A27:V65536")) et mes critères (Range("A1:V10")).
Pour la déclaration de ma plage : c'est ok suite à tes conseils et je t'en remercie.

Mais pour la déclaration de mes critères ça se gâte.
En fait mes critères sont variables et fonctionnent comme dans l'exemple qui suit :
2 21
2 20
2 15
2 9
2 3
2 1

En fait j'aurai autant de 2 que de cellules remplies dans la colonne de droite. Mais ma colonne de droite varie. Quelque fois elle est plus courte et quelque fois plus longue. Et par conséquent j'aurais voulu être sûr de pouvoir bien déclarer mes critères à tous les coups.
Est-ce plus clair ?

[Philippe Tulliez]

Bonjour,
Oui, c'est plus clair.
Ce que tu souhaites faire, c'est rendre dynamique ta plage des critères.
Une astuce consisterait à référencer la première cellule de ta zone des critères (dans ton exemple la cellule A1 de ta feuille active) et utiliser la méthode CurrentRegion de l'objet Range.
Petit conseil : Rends dynamique toutes tes zones (data et critères) à l'aide de la méthode CurrentRegion et précise les objets parents de l'objet Range, c'est plus prudent.
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ThisWorkbook.Worksheets("Feuil1").Range("B5")
.CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1").CurrentRegion
End With