Macro filtre Excel impossible à intégrer [Résolu]

Signaler
-
Messages postés
16165
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 juin 2021
-
Bonjour à tous,

Je vous explique mon problème. J'ai récupéré une macro d'un fichier que j'avais créé il y a 2 ans. Cependant en changeant les valeurs de cette macro, elle ne fonctionne pas. Je pense que c'est parce que je ne précise pas le nom de la feuille dedans, mais je n'y arrive pas.

Voici la macro:

Sub Filtrer1()
'
' Filtrer Macro

Range("W1:AA1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("AJ1:AJ2"), CopyToRange:=Range("AL1:AP1000"), Unique:=False


End Sub


Je souhaite créer un filtre avec une zone de critère, cette macro fonctionnait parfaitement sur mon ancien fichier.

W1:AA1000 est ma plage avec mes données, AJ1:AJ2 est ma zone de critère, AL1:AP1000 est la zone ou je voudrais qu'apparaissent mes données filtrées.

Toutes ces cellules se trouvent sur la Feuil6.

chaque fois que j'exécute ma macro j'ai ce message "Erreur d'execution 1004
Nom de champs incorrect ou manquant dans la zone d'extraction"
Merci de votre aide

Je vous joins mon fichier ci dessous:
https://wetransfer.com/downloads/9550d7d0ad406a118470d007f7c2f3e720210318082303/343b8f1d23b0eef35c99cffe39a71c9020210318082326/762bc8

1 réponse

Messages postés
16165
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 juin 2021
869
bonjour,
pour spécifier le nom de la feuille:
sheets("Feuil6").Range("W1:AA1000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=sheets("Feuil6").Range("AJ1:AJ2"), _
CopyToRange:=sheets("Feuil6").Range("AL1:AP1000"), Unique:=False