valeur dans filtre auto qui ne fonctionne pas

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:

---

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.

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:

---

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

---

devrait suffire

sinon,

Code:

---

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

---

j'ai modifié le code :

Code:

---

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 ?

Re,

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

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")
?

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:

---

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)

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

Re,

Citation:

---

"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. "

---

;)

Code:

---

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

---

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:

---

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