AutoFiltre colonne date par rapport mois et année

Bonsoir,

En panne sèche, je me tourne vers vous exposer mon problème. Voilà, je voudrais mettre en place un filtre sur la feuille "BD" en colonne C qui contient des dates; les critères de filtrage sont le mois et l'année d'une date saisie en feuille "Dest" en cellule C1.

ex: s'il y a en BD, 02/12/2014, 13/12/2014, 14/12/2014, 21/12/2014 ....etc

puis si je saisie en C1 (feuille "Dest") 28/12/2014 et lance la macro je dois obtenir ces dates.

c'est à dire filtrer par rapport au mois et à l'année quelque soit le jour de la date saisie en C1/

Voici ce que j'ai fait mais sans succès.

Sub AutoFiltreMoisAnnée()
Dim bd As Object, Dest As Object
Dim crit As String

Set O = Sheets("Dest")
Set bd = Sheets("BD") 'définit l'onglet bd
dl = bd.Cells(Application.Rows.Count, 1).End(xlUp).Row

crit = O.Range("C1")

    bd.Range("B1").AutoFilter 'lance le filtre automatique
    bd.Range("B1").AutoFilter Field:=2, Criteria1:=Month(CDate(crit)), Operator:=xlAnd, Criteria2:=Year(CDate(crit))

MsgBox "Bon pour la suite!"

End Sub

En vous remerciant par avance.

Cordialement,

Bonsoir

2 méthodes

Bonjour Banzai64,

Je te remercie beaucoup. C'est exactement ce que je voulais obtenir. Très gentil de ta part pour m'avoir proposé 2 solutions.

Pour info, je vais utiliser celle de l’auto-filtre que je maitrise beaucoup mieux que les filtres avancés.

Encore merci et par la même occasion, je te souhaite un bon week-end.

Cordialement,