XL 2013 Plage de date filtre avancé

Doze3

XLDnaute Nouveau
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 ?

VB:
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
 
Dernière édition:

Discussions similaires

Réponses
2
Affichages
159

Statistiques des forums

Discussions
312 801
Messages
2 092 244
Membres
105 312
dernier inscrit
DD07