Macro filtre Excel impossible à intégrer

Résolu/Fermé

661flex - 18 mars 2021 à 09:51
yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025 - 18 mars 2021 à 10:39

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

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
Aller à la ligne excel - Guide
Word et excel gratuit - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025 Ambassadeur 1 579
18 mars 2021 à 10:39

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

Discussions similaires

La fonction FILTRE n'est plus reconnue

Bonsoir à tous,

je vis une déconvenue des plus troublantes : hier soir je finalisais avec succès une formule incluant la fonction FILTRE, tout fonctionnait, super. Aujourd'hui je la rouvre, et la fonction FILTRE n'est plus du tout reconnue. A la place, il y a ça : _xlfn._xlws.FILTER. Ce qui veut dire qu'elle n'est pas prise en charge ; pourtant hier elle l'était...

Mon produit est bien à jour, il s'agit d'Office 2016. Et en effet, sur la version en ligne d'Excel, la formule est proposée. Moi je n'ai plus que la fonction FILTRE.XML qui l'est...

Le lien du fichier :
https://cjoint.com/c/MBhuxJvSDZH

Pour info, il s'agit d'une formule ...

Transformer un chiffre en lettres dans excel sans macro

Bonjour,
je cherche à transformer un chiffre en lettre dans excel mais sans macro.
Quelqu'un a déjà apporter une réponse génial à base d'une succession de formule =si() mais je n'arrive pas à la retrouver sur le forum.
Please aidez moi