filtrer des dates

1 réponse

Phil de Paris

14/07/2006 à 18:05

Bonjour,

Par une macro, je filtre des dates 3 mois avant aujourd'hui et 4 mois
après aujourd'hui :

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

Je souhaite améliorer ce tri, et avoir
sur le Criteria1: les dates 3 mois avant aujourd'hui ou les cellules sans
dates... Criteria2 sans modification.......

Je sèche lamentablement !

Avec mes remerciements,
Cordialement,

Phil.

------------------------------------------------------------------------------------
Click here to answer / cliquez ci dessous pour me répondre :
http://cerbermail.com/?vGWueEXY2U

1 réponse

14/07/2006 à 21:44

Bonjour,

http://cjoint.com/?hovRGNygLH

Avec filtre élaboré: Critère en I1:I2

Sub filtreDate()
[I2].Formula = _

"=OR(ISBLANK(E2),(E2<�TE(YEAR(TODAY()),MONTH(TODAY())+3,DAY(TODAY())) )*(E2>�TE(YEAR(TODAY()),MONTH(TODAY())-3,DAY(TODAY()))))"

[A1:E45].AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:=[I1:I2]
End Sub

Codialement JB

Bonjour,

Par une macro, je filtre des dates 3 mois avant aujourd'hui et 4 mois
après aujourd'hui :

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

Je souhaite améliorer ce tri, et avoir
sur le Criteria1: les dates 3 mois avant aujourd'hui ou les cellules sans
dates... Criteria2 sans modification.......

Je sèche lamentablement !

Avec mes remerciements,
Cordialement,

Phil.

------------------------------------------------------------------------- -----------
Click here to answer / cliquez ci dessous pour me répondre :
http://cerbermail.com/?vGWueEXY2U

filtrer des dates

1 réponse

Veuillez sélectionner un problème