Macro sur filtre

Bonjour au forum,

Ma macro permet de faire un filtre sur le mois d'AVRIL.

Comment peut-on faire un filtre sur le mois de MAI sans modifier le code de la macro ?

J'avais pensé à mettre un menu déroulant et VALIDER par OK, mais je ne sais pas comment m'y prendre. Qu'en pensez-vous ?

Merci de votre aide.

Cordialement.

Bonjour Sophang, bonjour le forum,

Toujours utiliser le format de date américain "yyyy/mm/dd" avec VBA et dans la cellule le format que l'on veut... Éviter les Select autant que tu le peux...

Le code :

Sub Macro4()
Sheets("Feuil1").Range("A1").AutoFilter
Sheets("Feuil1").Range("$A$1:$A$92").AutoFilter Field:=1, Operator:= _
    xlFilterValues, Criteria2:=Array(1, Format(Sheets("Feuil2").Range("D17"), "yyyy/mm/dd"))
End Sub

Le fichier :

Bonjour ThauThème,

Merci beaucoup pour ta réponse. Cependant, je n'arrive pas à lancer la macro à partir d'un autre fichier. Il y a un message "La méthode AutoFilter de la classe Range a échoué."

Voici le code :

Sub Macro4()

Windows("filtre2.xlsm").Activate
Sheets("date2").Range("A1").AutoFilter
Sheets("date2").Range("$A$1:$A$92").AutoFilter Field:=1, Operator:= _
    xlFilterValues, Criteria2:=Array(1, Format(Sheets("Feuil2").Range("D17"), "yyyy/mm/dd"))