Macro filtre Excel impossible à intégrer
Résolu
661flex
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
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:
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
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
A voir également:
- Macro filtre Excel impossible à intégrer
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Intégrer une vidéo dans un powerpoint - Guide
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
pour spécifier le nom de la feuille:
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
