Discussion :

[Drozo]

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 :

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

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.

[Gorfael]

Salut
essais

Code :

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

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

A+

[grrimag]

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 :

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

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 :

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

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