Discussion :

[slavovensky]

Salut à tous,
Voilà mon probleme, dans une feuille "Data" où est positionné un filtre auto, j'ai une colonne "date" avec sur chaque ligne une date au format 01/xx/xxxx pour identifier les mois en question :
janvier 2010 = 01/01/2010
février 2010 = 01/02/2010
...
décembre 2010 = 01/12/2010
Pour la lecture du tableau, j'ai mis en forme les cellules : format -> date -> type = mmm-aa (soit janv-10, févr-10, etc.).
Dans une macro, j'active le filtre auto :

Code :

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

1
2
Sheets("Data").Select
Selection.AutoFilter Field:=8, Criteria1:=Format(export_date, "mmm-yy")

Probleme : le filtre s'active mais toutes les lignes sont masquées !

Qui peut m'éclairer ?
Merci d'avance.

[tototiti2008]

Bonjour slavovensky,

a priori, il ne faut pas tenir compte du format d'affichage des dates

si ta variable export_date est bien du type Date,

Code :

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

Selection.AutoFilter Field:=8, Criteria1:=export_date

devrait suffire

sinon,

Code :

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

Selection.AutoFilter Field:=8, Criteria1:=CDate(export_date)

[slavovensky]

j'ai modifié le code :

Code :

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

1
2
Public export_date As Date
Selection.AutoFilter Field:=8, Criteria1:=export_date

même résultat, la valeur du filtre = 5/1/2010

Un pb de format de date dd/mm/yyyy vs m/d/yyyy ?

[tototiti2008]

Re,

et la variable export_date, elle est censée contenir le 5 janvier ou le 1er mai, quand tu fais le test ?

[slavovensky]

01/05/2010 soit le 1er mai 2010, quelle valeur export_date doit prendre :
export_date = "01/05/2010"
export_date = format("01/05/2010","dd/mm/yyy")
export_date = CDate("01/05/2010")
?

[tototiti2008]

Bonjour à tous,

Oui, en effet, après plusieurs tests c'est plus complexe que prévu...

un version qui semble fonctionner, mais un peu complexe

Si export_date est du Type Date et est égale au 1er mai :

Code :

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

Selection.AutoFilter Field:=8, Criteria1:=">=" & Format(export_date, "mm/dd/yyyy"), Operator:=xlAnd, Criteria2:="<=" & Format(export_date, "mm/dd/yyyy")

sur les égalités, j'ai pas réussi (on dirait qu'il ne gère que le texte pour les égalités)

[slavovensky]

Super ça fonctionne, mais je sais pas pourquoi ???
Merci encore pour votre aide.

[tototiti2008]

Re,

"La théorie, c'est quand on sait tout et que rien ne fonctionne. - La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

Ici, la pratique et la théorie sont réunies, rien ne fonctionne et personne ne sait pourquoi. "

[mercatog]

Code :

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

1
2
Dim export_date As Date
Range("A1:A20").AutoFilter Field:=1, Criteria1:=CStr(Format(export_date, "mm-yy"))

[tototiti2008]

Bonjour mercatog,

J'ai testé ta version en mettant l'ensemble de la colonne A au format "mm-aa" et ça ne fonctionne pas chez moi

Code :

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

1
2
3
Dim export_date As Date
export_date = DateSerial(2010, 5, 1)
Range("A1:B20").AutoFilter Field:=1, Criteria1:=CStr(Format(export_date, "mm-yy"))

Edit : Oups, désolé, erreur dans le nom de la variable, en effet ça fonctionne