XL 2013 Plage de date filtre avancé

[Doze3]

Bonjour à tous,

Je cherche a faire un filtre avancé sur une plage de date choisi par l'utilisateur. J'ai donc deux critère, un debut de plage et une fin de plage mais je ne sais pas pourquoi la macro ne prend en compte que le premier critère. Quelqu'un pourrait il m'éclairer ?

Sub MouvementSemaine2()
Dim datedebut, datefin, adresse, nomFichier As String, rgDonnee, rgCritere, rgDestination As Range
datedebut = InputBox("date de debut")
datefin = InputBox("date de fin")
ThisWorkbook.Sheets("mouvement").Range("d2") = ">=" & DateValue(datedebut)
ThisWorkbook.Sheets("mouvement").Range("e2") = "<=" & DateValue(datefin)
Set rgDonnees = ThisWorkbook.Worksheets("mars").Range("A1").CurrentRegion
Set rgCritere = ThisWorkbook.Worksheets("mouvement").Range("d1:e2")
Set rgDestination = ThisWorkbook.Worksheets("mouvement").Range("a1:b1")
rgDonnees.AdvancedFilter xlFilterCopy, rgCritere, rgDestination


End Sub

 

[chris]

Bonjour

Tu écris a priori les dates des critères en Q2 et R2 mais utilises dans le filtre D1:E2

 

[Doze3]

Erreur de ma part, j'ai modifié le fichier pour le forum. L'erreur est toujours présente néanmoins.

 

[Doze3]

Petit Up. Merci.