[VBA-E] filtre auto

Bonjour à tous, Voilà j'ai besoin d'une ptite aide! J'aimerais qu'une de mes macro face un filtre en se servant des filtres auto déjà en place sur la feuille, le probleme est que je n'arrive qu'a filtrer avec le critere egal, je voudrais filtrer sur "contient ma variable".
Quelqu'un connait il la solution ?

Code:

---

Selection.AutoFilter Field:=2, Criteria1:="=" & Nom_proj, Operator:=xlAnd

---

J'ai essayé ça entre autre...:yaisse2:

Salut yoann7,

Essaie donc ça :

Code:

---

Selection.AutoFilter Field:=2, Criteria1:="=*" & Nom_proj & "*", Operator:=xlAndf

---

ah yes trop bien ça marche! Mais faut savoir pour la syntaxe...
Merci beaucoup

Une chose que je fais souvent :mrgreen: c'est d'enregistrer une macro qui fait ce que je veux (du moins dans les grandes lignes) et ensuite je recopie le code pour tester, comprendre et faire (un peu) plus compliqué...

Ben c'est exactement ce que j'ai fais mais après je ne trouvais pas la bone syntaxe pour integrer ma variable dedans.

Bonjour, en fait j'ai encore un probleme de tri, je voudrais mettre le critère inferieur ou egal.
J'ai essayé ça

Code:

---

1 2	selection.AutoFilter field:=17, Criteria1:="<=*" & Date_lim & "*", Operator:=xlOr _ , Criteria2:="=**"

---

pour faire un tri inferieur ou egal a variable ou vide, mais ça ne marche pas...

ben toujours la même technique...

Code:

---

1 2	selection.AutoFilter field:=17, Criteria1:="<=*" & Date_lim & _ "*", Operator:=xlOr, Criteria2:="="

---

Marche pas, ça met "ne contient pas" comme critère, le "ou" pas selectionné et pas de deuxieme critère...

Pourrais-tu envoyer ton fichier ?

Attention, dans les critères, le * correspond à une série de caractères, donc que tu fasses "un égal à *truc*" ou un "contient truc", c'est la même chose...
Pour la case vide... ben c'est égal à rien ou qui ne contient pas * donc

Code:

---

Criteria2:="="

---

ou

Code:

---

Criteria2:="<>*"

---

désolé je peux pas envoyer le fichier, y'a trop d'info sur une grosse multinationnale :yaisse2:

Code:

---

1 2	selection.AutoFilter Field:=16, Criteria1:="<=*" & Date_lim & _ "*", Operator:=xlAnd

---

C'est juste la que ça déconne, le "<=" donne un ne contient pas, il me faudrait en fait l'expression pour faire "inferieur ou egal a"

Merci à toi de m'accorder ton temps!

Essaie un peu ce classeur là...

Lance la seule macro dedans et dis-moi si ça fonctionne comme tu le veux...

ah merde la ça marche ! Comment ça se fait que sur mon fichier nom :roll:

(wake) up !
Bon je pense que mon problème viens du fait que j'ai un problème avec les dates dans la colonne, c'est bizare car j'importe mes données en modifiant le format (données externe, données textes...) Comment ça se fait que même en mettant format date ça ne marche pas ?!