problème macro et filtre automatique par une variable texte

Bonjour,

j'ai défini une variable de texte qui en fait consiste en un mois de l'année (exemple : Juin).

Cette variable découle d'une autre chaine de caractères de longueur variable qui comprend le mois et l'année (exemple : Juin 2007)

Pour en déduire le mois j'ai utilisé Len et ensuite j'ai utilisé Left (len - 5) (5 vient de l'espace(1) et de l'année(4))

J'obtiens bien le mois dans ma variable "mois".

Cependant je souhaite ensuite appliqué un filtre automatique à la première ligne d'une bdd excel, je fais:

Code:

---

1 2	Rows("1:1").Select Selection.AutoFilter Field:=1, Criteria1:=mois

---

(mois etant ma variable) et il applique un filtre mais ne filtre pas (on a les fleches mais il n'effectue pas le filtre selon le mois).

J'applique ensuite un autre filtre sur une autre colonne et ce dernier marche, normal le critère de filtrage est en texte et non une variable.

Si sur le premier filtre je remplace mois par "Juin" ca marche.

Je ne comprend pas où ce situe le problème, pouvez vous m'apporter votre aide s'il vous plait?

Merci.


edit: du coup pour l'instant je passe par des "if" pour chaque mois de l'année ca rajoute des lignes de codes c'est pas tres cool.

Salut
essais

Code:

---

Range("A1").currentRegion.autofilter Field:=1, Criteria1:=mois

---

A+

Salut,

un peu en marge de ton problème, quand tu as beaucoup de cas à traiter, tu peux utiliser le select case plutot que le if.

Code:

---

1 2 3 4 5 6 7

if mois="Janvier" then 'ton code janvier else if mois="Fevrier" then 'ton code fevrier ...

---

se remplace facilement par

Code:

---

1 2 3 4 5 6 7 8

select case mois case is = "Janvier" 'ton code janvier case is = "Fevrier" 'ton code février ... end select

---

C'est beaucoup plus lisible au final et ça évite de faire plein de tests ;)