sonskriverez
XLDnaute Occasionnel
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
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