Filtre auto sur date par macro

[jofdm]

Bonjour à tous,
Dans le fichier ci-joint, à partir du bouton de la feuille "Menu", je souhaite appliquer à la colonne D de la feuille "Récap" un filtre automatique en fonction de la date du jour, date que je récupère dans la cellule F1 de la feuille "Récap".
J'ai écrit la macro suivante :
Sub Macro1()
Sheets("Récap").Activate
Selection.AutoFilter Field:=4, Criteria1:=Format(Range("F1"), "mm/dd/yy")
End Sub

Mais cela ne fonctionne pas.
Merci d'avance pour votre aide

 

[Guest]

Re : Filtre auto sur date par macro

Bonjour,

Essaie avec:

    Selection.AutoFilter Field:=4, Criteria1:="=" & Range("F1").Text

Peut-être qu'utiliser la fonction =Aujourdhui() au lieu de =Maintenant() serait plus approprié, à moins que tu aies besoin de l'heure.

A+

 

[jofdm]

Re : Filtre auto sur date par macro

Merci beaucoup Hasco, je viens de tester ta solution et ça marche impec.
Je n'aurais jamais pensé à rajouter "="
Bonne fin de WE