VBA filtre multicritère à partir des valeurs d'une plage de cellule Résolu/Fermé

Question

Bonjour,

Je souhaiterais filtrer ma base de données avec les valeurs contenue dans une plage de données de taille variable. (Ici B2:B3)

Sub FiltreCellule()    Workbooks("Classeur2.xlsx").Worksheets("Feuil1").Range("A1:XFD1048576").AutoFilter Field:=1, Criteria1:=Array(Workbooks("Classeur1.xlsx").Worksheets("Feuil1").Range("B2:B3").Value), Operator:= _        xlFilterValuesEnd Sub

PS : Si mes critères sont dans un fichier excel enregistré sur Teams, est-il possible de les récupérer directement dessus ?

Je vous remercie d'avance pour votre aide :)

Le Pingou · Answer

Bonjour,
Ce n'est pas clair car votre code fait référence à 2 classeurs donc les critères sont dans le deuxième !
Qu'elle est l'erreur que se passe-t-il à l'exécution de votre code ?

Valou78310 · Answer

Bonsoir,

Effectivement il y a deux classeurs différents.
Mes critères sont dans le classeur 1 et ma BDD est dans le classeur 2.
Lorsque je lance la macro, je tombe sur une erreur d'exécution 13 "Incompatibilité de type".

Je ne suis pas encore assez expert dans le domaine pour savoir quoi faire dans ce cas :(

Le Pingou · Answer

Bonjour,
Sans voir les fichiers c'est impossible dans faire plus. En principe les critères devraient être dans classeur 2.
Je vous propose de faire un essai en activant l'enregistreur de macro sur le classeur 2 et vous faite manuellement les opérations et ensuite regarder la macro enregistrée et essayer l de la relancer pour voir si cela marche.

Valou78310 · Answer

Bonjour,

Je n'arrive pas à joindre les classeurs, les glisser ne fonctionne pas et je ne vois pas de bouton pour les joindre.
J'ai inversé les classeurs et adapté le code.
En revanche, je ne pense pas que je puisse sélectionner une plage de cellule pour l'insérer dans le filtre. Il ne colle que la valeur de la première cellule.

Sub FiltreCellule()    Workbooks("Classeur1.xlsx").Worksheets("Feuil1").Range("B2:D7").AutoFilter Field:=1, Criteria1:=Array(Workbooks("Classeur2.xlsx").Worksheets("Feuil1").Range("B2:B3").Value), Operator:= _        xlFilterValuesEnd Sub

Valou78310 · Answer

RESOLU !

Après réflexion voici le code et il fonctionne pour mon cas :

Sub Filtre_Avancé()'    Workbooks("X.xlsx").Worksheets("X").Activate    'Positionne toi dans le classuer X.xlsx...    Range("A4:AG2052").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _        Workbooks("Classeur2.xlsx").Sheets("Feuil1").Range("B2:B7"), Unique:=False    Range("A4").Select    'Prends la plage A4:AG2052 où la ligne 4 repésente les en-têtes de colonnes.    'Actionne le filtre avancé et utilise la plage B2:B7 du classeur 2 où B2 doit être l'en-tête de colonne de ma BDD.    'Attention l'en-tête doit être exctement la même sur les fichiers sinon le filtre ne fonctionnera pasEnd Sub

Attention la zone de filtre ne peut pas contenir de cellule vide. (Dans mon cas il ne retournait aucune valeur).

Bonne journée !

VBA filtre multicritère à partir des valeurs d'une plage de cellule

5 réponses

Discussions similaires

Newsletters