Filtrer Date en VBA

Bonjour Elliac,

Tu peux utiliser une des syntaxes suivantes :


MyDate = CDate(Date + 10)
Selection.AutoFilter Field:=4, Criteria1:="<=" & CLng(MyDate)
ou
Selection.AutoFilter Field:=4, Criteria1:="<=" & MyDate * 1
ou
Selection.AutoFilter Field:=4, Criteria1:="<=" & Format(MyDate, "m/d/yy")

Ce qui précède est vrai en autant que tu utilises AU MOINS l'opérateur "<" ou ">" qu'ils soient jumelés à l'opérateur ne change
rien. C'est autre chose si tu utilises seulement l'opérateur "="...


Salutations!




"Elliac" <Elliac@discussions.microsoft.com> a écrit dans le message de news: 82E85860-7570-48D8-9C48-C116FA5BF443@microsoft.com...
Bonjour,

Je cherche à filtrer en VB sur la date du jour :
MyDate = CDate(Date)
Selection.AutoFilter Field:=4, Criteria1:="<=" & MyDate

Mais le résultat est nul sauf à retourner dans la colonne filtrée et à
valider le filtre personnalisé.

Merci de toute aide

Camille

Bonjour,

ou un peu moins belle que celles de MichDenis, cette possibilité :

Mydate = Date
MsgBox Mydate
Selection.AutoFilter Field:=4, Criteria1:="<=" & DateValue(Mydate) * 1

Cordialement
Steph D.

Bonjour.

Selection.AutoFilter Field:=4, Criteria1:="<=" & CLng(Date)

Alain CROS

"Elliac" <Elliac@discussions.microsoft.com> a écrit dans le message de news: 82E85860-7570-48D8-9C48-C116FA5BF443@microsoft.com...
| Bonjour,
|
| Je cherche à filtrer en VB sur la date du jour :
| MyDate = CDate(Date)
| Selection.AutoFilter Field:=4, Criteria1:="<=" & MyDate
|
| Mais le résultat est nul sauf à retourner dans la colonne filtrée et à
| valider le filtre personnalisé.
|
| Merci de toute aide
|
| Camille