Filtre avancés

Résolu/Fermé
Thoms8 Messages postés 2 Date d'inscription lundi 28 mai 2018 Statut Membre Dernière intervention 29 mai 2018 - 28 mai 2018 à 14:52
Thoms8 Messages postés 2 Date d'inscription lundi 28 mai 2018 Statut Membre Dernière intervention 29 mai 2018 - 29 mai 2018 à 13:46
Bonjour,

J'essaye de réaliser une macro me permettant de réaliser un filtre avancé sur une base de données de 100 lignes et 100 colonnes d'une feuille 1. Les critères de ce filtre se trouvent dans un tableau sur une feuille 2. Ce tableau à un nombre de colonnes i.

Mon code est le suivant :
Sheets("Feuil1").Range(Cells(1, 1), Cells(100, 100)).AdvancedFilter _
Action = xlFilterInPlace, _
CriteriaRange = Sheets("Feuil2").Range(Cells(1, 1), Cells(2, i))


Lors du lancement de la macro le message d'erreur suivant apparait :
erreur d'exécution : erreur définie par l'application ou définie par l'objet
La valeur de "i" correspond bien au nombre de colonnes de mon tableau de critères.

Quelqu'un peut-il m'aider ?
A voir également:

1 réponse

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
29 mai 2018 à 09:20
Bonjour,

C'est un Pb de syntaxe, essayer :
Sheets("Feuil1").Range(Cells(1, 1), Cells(100, 100)).AdvancedFilter _
Action:= xlFilterInPlace, _
CriteriaRange:= Sheets("Feuil2").Range(Cells(1, 1), Cells(2, i)) 

1
Thoms8 Messages postés 2 Date d'inscription lundi 28 mai 2018 Statut Membre Dernière intervention 29 mai 2018
29 mai 2018 à 13:46
C'est bon ça marche ! merci beaucoup :)
0