Discussion :

[franckjoane]

Bonjour,
je sais filtrer sur une colonne avec 1 seul critère de recherche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  excel.sheets[1].range['A1'].autofilter(4,'=texte1');

-> filtrage sur la colonne 4 (D) avec pour critère le texte "texte1".

Maintenant, je voudrais passer 3 critères en paramètres. Par exemple
texte1 et texte2 et texte3

J'ai essayé tout un tas de combinaison mais je n'y arrive pas.

L'enregistreur de macro excel me donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.Range("$A$1:$I$4785").AutoFilter Field:=4, Criteria1:=Array( _
        "texte1", "texte2", "texte3"), Operator:=xlFilterValues

J'ai essayé avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
  Var v : olevariant;
...
v := vararraycreate([0,1,2],varvariant);
  v[0] := '=texte1';
  v[1] := '=texte2';
  v[2] := '=texte3';
  excel.sheets[1].range['A1'].autofilter(4,v);

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
  Var v : olevariant;
...
v := vararraycreate([0,1,2],varvariant);
  v[0] := 'texte1';
  v[1] := 'texte2';
  v[2] := 'texte3';
  excel.sheets[1].range['A1'].autofilter(4,v);

pas d'erreur de compilation mais toujours un seul texte comme critère : 'texte3'
J'ai essayé aussi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

excel.sheets[1].range['A1'].autofilter(4,vararrayof(['=texte1','=texte2','=texte3']));

et aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

excel.sheets[1].range['A1'].autofilter(4,vararrayof(['texte1','texte2','texte3']));

Pas d'erreur de compilation mais toujours texte3 comme filtre. Le dernier de la liste a chaque fois !
Là je bloque !!!!!.

Merci d'avance pour le temps passé a me répondre.

[ShaiLeTroll]

selon la MSDN excel.range.autofilter, il n'y aurait que deux critères possibles à lié par un opérateur

tente

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 excel.sheets[1].range['A1'].autofilter(4,'=texte1',xlOr,'=texte2');

Après, tu dois passer à AdvancedFilter

[franckjoane]

Merci Mr ShaiLeTroll,
je vais regarder du coté d'Advancedfilter. Je n'oublierai pas de mettre une solution et RESOLU ou peut être de reposer une question sur Advancedfilter.

[franckjoane]

Me revoilà,
j'ai réussi le filtrage sur + de 2 critères mais ce n'est pas tout a fait la méthode que je voudrais employer. Je m'explique !

le code qui marche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

excel.sheets[1].range['A1:D5'].advancedfilter(1,excel.sheets[1].range['E1:E4']);

-> je cherche dans la zone 'a1:d5' les critères de recherche situés en E1:E4 avec le filtrage en place.

Je suis obligé d'envoyer un objet Range pour les critères. J'ai donc fait une colonne E avec la même entête que la colonne C (celle ou je veux filtrer) et sous l'entête en E2 E3 E4 j'ai mis les critères de recheche et cela marche parfaitement.

Y aurait-il une solution autre pour ne pas ecrire de colonne E et envoyer cette zone en paramètre directement dans le code a la place
excel.sheets[1].range['E1:E4']

[franckjoane]

Bon,
pas de réponse , je mets Résolu...
Merci pour advancedfilter ShaiLeTroll.