Filtrer sur un mois m-1 et m+1

[sonskriverez]

Bjr le Forum

Je doit filtrer des lignes selon une date et plus précisement sur le mois -1 et le mois +1 par rapport au mois courant. J'ai trouvé sur le forum ce bout de code (merci BrunoM45) cela fonctionne bien si je rentre une fourchette de date en "dure", mais cela implique une modification du code a chaque changement de mois.

Merci de votre aide

Sub FiltreSurDate()

Dim Dlig As Long, StartDate As Long, EndDate As Long

Application.ScreenUpdating = False
With Sheets("XXX")
.Activate
Dlig = .Range("A" & Rows.Count).End(xlUp).Row
StartDate = DateValue("01/06/2013")
EndDate = DateValue("31/08/2013")
.Range("A2").AutoFilter field:=18, Criteria1:=">=" & StartDate, Operator:=xlAnd, Criteria2:="<=" & EndDate
End With

 

[Pierrot93]

Re : Filtrer sur un mois m-1 et m+1

Bonjour,

modifie peut être ces instructions comme suit :

StartDate = DateSerial(Year(Date), Month(Date) - 1, 1)
EndDate = DateSerial(Year(Date), Month(Date) + 2, 0)

bon après midi
@+

 

[sonskriverez]

Re : Filtrer sur un mois m-1 et m+1

Bjr Pierrot93

Cela marche bien, merci de ton aide

Bonne fin de journée