Discussion :

[Henri1830]

Bonjour,

Il n'est pas trop tard, alors, meilleurs voeux à tous !

Afin de délimiter un secteur, j'utilise les codes postaux des localités (belges)
J'ai vérifié dans plusieurs forums la solution utilisée et plusieurs m'indiquent que ce qui suit devrait fonctionner :

Code :

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

ActiveSheet.Range("$A$1:$G$2766").AutoFilter Field:=1, Criteria1:=Array("142*", "147*", "1495"), Operator:=xlFilterValues

Or, comme vous l'avez compris, ça ne fonctionne pas.
Tel quel, ce code n'affiche que les codes 1495.
Si modifie le critère en 1495*, je n'ai plus rien.
Si j'enlève le 1495, tous les autres codes s'affichent.

Qu'est-ce que je ne fais pas bien ?

Merci d'avance pour vos réponses.

Belle journée !

Henri

[Henri1830]

Je n'ai eu aucune réponse mais j'ai continué à chercher pour finir par trouver la réponse dans le tuto de Philippe Tulliez que je remercie par la même occasion.

Voici la bonne syntaxe :

Code :

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

1
2
    Worksheets("Localités par code postal").Range("A1:G2766").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Critères").Range("A1:A4"), Unique:=False

Dans la feuille "Critères", se trouvent les critères requis :
A1 Code postal
A2 142*
A3 147*
A4 1495

J'espère que ceci pourra aider quelqu'un d'autre.

Belle soirée !

Henri