filtrer date macro

Selection.AutoFilter _
Field:=7, _
Criteria1:=">=" & DateSerial(Year(Date), Month(Date) - 2, Day(Date)), _
Operator:=xlAnd, _
Criteria2:="<=" & DateSerialYear(Date), Month(Date) + 3, Day(Date))

Tu avais fait 2 erreurs:
DateSerial(an, mois jour) et mas (jour, mois, an)
Les critères sont des strings

Cordialement,
--
AP

"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news:%23hUcVGqSGHA.5108@TK2MSFTNGP09.phx.gbl...

Bonjour,

J'ai besoin régulièrement de filtrer des dates comprises entre il y a 2
mois

et dans 3 mois (entre date aujourd'hui - 2 mois et aujourd'hui + 3 mois)

j'essaye de régler ce pb par macro :

Selection.AutoFilter Field:=7, Criteria1:ÚteSerial(Day(Date),
Month(Date) - 2, Year(Date)), Operator:=xlAnd _,
Criteria2:ÚteSerial(Day(Date), Month(Date) + 3, Year(Date))

mais cela bloque...

avez vous une solution ?

merci !
Philippe

Sur une seule ligne :

Selection.AutoFilter Field:=7, Criteria1:=">=" & DateSerial(Year(Date),
Month(Date) - 2, Day(Date)) * 1, Operator:=xlAnd, Criteria2:="<=" &
DateSerial(Year(Date), Month(Date) + 3, Day(Date)) * 1

AV

ça marche !

MERCI beaucoup de votre aide

Philippe


"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
uwHv7VqSGHA.1236@TK2MSFTNGP11.phx.gbl...

Sur une seule ligne :

Selection.AutoFilter Field:=7, Criteria1:=">=" & DateSerial(Year(Date),
Month(Date) - 2, Day(Date)) * 1, Operator:=xlAnd, Criteria2:="<=" &
DateSerial(Year(Date), Month(Date) + 3, Day(Date)) * 1

AV