Code AutoFilter sur date ne fonctionne pas, toutes les valeurs sont filtrées.

[philippe86]

Bonjour,

J'utilise le code vba ci-dessous pour filtrer une liste de date, le résultat est que tout est filtré, si je vais dans excel en interactif, la definition du filtre personnalisé est correct, et si je clique sur OK alors le filtre fonctionne .

Une idée sur ce type de Pb ? forcer le filtre auto ? Merci

...
Dim MyDate As Date
MyDate = 31/03/2008
Selection.AutoFilter Field:=7, Criteria1:="<=" & MyDate
...

 

[Catrice]

Re : Code AutoFilter sur date ne fonctionne pas, toutes les valeurs sont filtrées.

Bonjour,

La façon dont tu saisis la date est bizarre ...
Ceci fontionne chez moi :

Sub Test()
MyDate = "3/31/2008"
Selection.AutoFilter Field:=2, Criteria1:="<=" & MyDate
End Sub
Il faut que la date soit en mm/jj/aaaa

Par rapport à ce que tu as écrit, il faudrait plutot faire :

Sub Macro1()
Dim MyDate As Date
MyDate = #3/31/2008#
Selection.AutoFilter Field:=2, Criteria1:="<=" & MyDate
End Sub

mais ça ne fontionne pas ...

Ceci fontionne :
Sub Macro1()
Dim MyDate As Date
MyDate = #3/31/2008#
Selection.AutoFilter Field:=2, Criteria1:="<=" & Format(MyDate, "mm/dd/yyyy")
End Sub

 

[philippe86]

Re : Code AutoFilter sur date ne fonctionne pas, toutes les valeurs sont filtrées.

C'est correct, Merci du conseil.