[VBA pour Excel] Multi Filtre

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA pour Excel] Multi Filtre

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 ???

Publicité

Dolu007

Personne ce matin pour m'aider ?

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 ????

Message cité 1 fois

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

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

Dolu007

Bonjour,

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

ingenieurcesi

c koi que taime pas ?

ingenieurcesi

si tu peux mets ton fichier sur cjoint

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

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à.

Publicité

stoody2003

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

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.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA pour Excel] Multi Filtre

Sujets relatifs
[VBA] Code de compression d'une BBD	Php et excel
[Résolu] [VBA] Comment lancer un .chm ?	php+excel
Export données Excel vers Mysql	Onglet Excel -> découpe pls files
Probléme de type VBA	[VBS]Ouverture d'un classeur excel
Plus de sujets relatifs à : [VBA pour Excel] Multi Filtre

Page générée en 0.074 secondes