Microsoft 365 Macro filtre pour sélectionner les dates portant sur les 2 mois à venir à partir de la date du jour

[michel.dupont]

Bonjour
j'ai, crée une macro qui filtre les dates de deux mois supérieures à la date du jour
Range("i3").AutoFilter Field:=9, Criteria1:=">=" & Month(Date) & "/1/" & Year(Date), Operator:=xlAnd, Criteria2:="<" & Month(Date) + 2 & "/1/" & Year(Date) + Int(Month(Date) / 12)
ce filtre fonctionnait correctement jusqu'à présent mais je pense qu'avec le proche passage à 2022 ca bug....
merci de votre aide
Michel

 

[Hasco]

Bonjour,

deux mois supérieures à la date du jour

Tester :
Field:=1, Criteria1:=">=" & Format(Date, "mm/dd/yyyy"), Operator:=xlAnd, Criteria2:="<=" & Format(DateSerial(Year(Date), Month(Date) + 2, Day(Date)),"mm/dd/yyyy")

cordialement

 

[michel.dupont]

super!
un tout grand merci
Michel