[VBA pour Excel] Multi Filtre

Recherche :

Dernière réponse

Sujet : [VBA pour Excel] Multi Filtre

Ereonus

Bonjour,

je sais que le sujet date mais j'ai cherché vite fait sur le net sans trouver de solution.

J'ai donc gratté un peu et voici ce que j'ai fait et qui fonctionne :

Code :

Dim my_big_array As Variant
my_big_array = Array("47000", "47100", "47200", "47202", "47205", "47300" )
ActiveSheet.Range("$A$5:$O$" & Cells(1, 2).Value).AutoFilter Field:=3, Criteria1:=my_big_array, Operator:=xlFilterValues

La variable peut ainsi être renseignée avec n'importe quoi (des checkbox pour ma part).

Bonne journée.

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

Ereonus

Bonjour,

je sais que le sujet date mais j'ai cherché vite fait sur le net sans trouver de solution.

J'ai donc gratté un peu et voici ce que j'ai fait et qui fonctionne :

Code :

Dim my_big_array As Variant
my_big_array = Array("47000", "47100", "47200", "47202", "47205", "47300" )
ActiveSheet.Range("$A$5:$O$" & Cells(1, 2).Value).AutoFilter Field:=3, Criteria1:=my_big_array, Operator:=xlFilterValues

La variable peut ainsi être renseignée avec n'importe quoi (des checkbox pour ma part).

Bonne journée.

stoody2003

slt tu aurais trouvé une solution ? jai le mm souci

Dolu007

Bonjour,

Je n'ai pas de calcul à faire. Ce que je veux c'est uniquement un filtre multicritère sur une colonne c'est tout. Seulement, avec excel on est limité à 2 actuellement.

Voilà.

ingenieurcesi

ce que tu fais ressemble beaucoup à un filtre élaboré mais pour que ca fonctionne il te faut des en tête.

exmple

tes données
A B
1 maison prix
2 titi 9
3 tata 7
4 toto 9
5 titi 8
6 tata 6
7 tutu 4
8 lulu 3
9 nana 2
10 lula 2
11 nana 1

tes critères
D
1 maison
2 titi
3 tata

et tu veux tes résultats en A14

ton code est

Range("B5" ).Select
Range("A1:B11" ).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"D1:D3" ), CopyToRange:=Range("A14" ), Unique:=False

tien o courant

ingenieurcesi

si tu peux mets ton fichier sur cjoint

ingenieurcesi

c koi que taime pas ?

Dolu007

Bonjour,

Je ne trouve pas cette méthode très satisfaisante, et j'avoue avoir du mal à la cerner. Une autre solution ?

ingenieurcesi

o cas où

sur une colonne qui n'a "pas de trou"
nombre de ligne rempli (sur la colonne A avec cet exemple)= Range("A65536" ).End(xlUp).Row +1

ingenieurcesi

Dolu007 a écrit :

Je pensais que ce n'était pas si compliquer que ça, finalement ça n'a l'air pas si simple. Personne n'a une idée de comment réaliser ce filtrage multi critère ????

yore peut etre une solution
ok c'est pas la plus académique mais ca peut marcher

tu peux dupliquer ta zone de choix n foix (n=nombre de critère par exemple) et sur chaque copie tu fais un critère. au bout du compte sur chaque feuille tu as un résultat que tu copie sur une même feuille.

et puis, si tu veux, tu peux cacher ces feuilles!!!

OK c'est pas top mais ca peut marcher

Dolu007

Je pensais que ce n'était pas si compliquer que ça, finalement ça n'a l'air pas si simple. Personne n'a une idée de comment réaliser ce filtrage multi critère ????

Dolu007

Personne ce matin pour m'aider ?

Dolu007

Bonjour à tous,

Je suis en train de vouloir faire un filtre sur une colonne avec une recherche sur plusieurs critères. Le problème est que sous Excel, on est limité à 2 critères. Voilà un exemple de code VBA Excel :

Code :

Selection.AutoFilter Field:=2, Criteria1:="=CH", Operator:=xlOr, _
Criteria2:="=DN"

Moi je voudrais pouvoir faire ceci mais ça ne fonctionne pas :

Code :

Selection.AutoFilter Field:=2, Criteria1:="=CH", Operator:=xlOr, _
Criteria2:="=DN", Operator:=xlOr, _
Criteria3:="=GI", Operator:=xlOr, _
Criteria4:="=DE", Operator:=xlOr, _
Criteria5:="=LYL", Operator:=xlOr, _
Criteria6:="=RL"

Une idée ???