Filtrer sur 1 an VBA

Bonjour,

A partir de la date du jour, je cherche une solution VBA pour filtrer sur les 12 derniers mois depuis la date du jour ou un moyen pour filtrer l'ensemble des données qui se trouvent entre la date du jours moins 365 jours.

Le but étant d'avoir de façon automatique l'ensemble des données sur une année glissante.

Merci d'avance pour votre aide.

Bonjour et bienvenue sur le forum

Comment peut-on te proposer quelque chose si tu ne joins pas ton fichier, rendu anonyme si besoin ?

Bye !

Ci-joint la mise en forme de mon fichier. Je n'arrive pas à programmer de façon à avoir toutes les valeurs comprise entre aujourd'hui (19/04/2017 par exemple et il y a un an (19/04/2016).

Bonjour,

un exemple de code qui devrait te convenir :

Sub FiltreSurDate()

Dim DateFiltre As Long
DateFiltre = Format(Date - 365, "#")

' Supprime tout filtre
Sheets("Feuil1").AutoFilterMode = False
' Ajoute un filtre sur les dates supérieur à aujourd'hui - 365 jours
Sheets("Feuil1").Range("A1").AutoFilter Field:=9, Criteria1:=">" & DateFiltre

End Sub

N'hésite pas si tu as une question ou un pb,

Cordialement,

RemBabar

Bonjour,

Une proposition équivalente.

Cdlt.

Sub FiltreSurDate2()
Dim startDate As String, endDate As String
    endDate = Format(Date, "#")
    startDate = Format(Date - 365, "#")
    Sheets("Feuil1").AutoFilterMode = False
    Sheets("Feuil1").Range("A1").AutoFilter _
            Field:=9, _
            Criteria1:=">=" & startDate, _
            Operator:=xlAnd, _
            Criteria2:="<=" & endDate

End Sub

Bonjour à tous

Filtrer ou supprimer ?

Au choix :

Bye !

Merci à tous !

Ca fonctionne très bien