Macro avec filtre

Bonjour,

J'ai un problème avec une macro et le filtre automatique

Le filtre est bien enregistré mais ne donne pas de résultat : quand j'interromps la macro après le filtre et que je reviens dans la feuille, en applicant le filtre personnalisé à la main, cela marche

Avez vous une idée ?

Sheets("listes").Select
    ans = Range("i1")
    Sheets("production").Select
    ActiveSheet.Unprotect
    Range("B5:bc5").Select
    Range("bc5").Activate
    Selection.AutoFilter
    Selection.AutoFilter
    an = ans

    For moistemps = 1 To 12
    dd = ">=01/" & moistemps & "/" & an
    Selection.AutoFilter Field:=15, Criteria1:=dd, Operator:=xlAnd, Criteria2:=dd1
    If moistemps = 12 Then dd1 = "<=31/12/" & an Else dd1 = "<01/0" & moistemps + 30 & "/" & an
    Next

End Sub

Bonsoir

N'as-tu pas une instruction

Selection.AutoFilter

de trop

La première initialise le Filtre Auto et la seconde l'enléve, me semble-t-il?

Cordialement

Bonjour,

Non, le filtre est par défaut sur la feuille, cette double instruction permet d'enlever les filtres éventuellement positionnés et le remettre.

J'ai trouvé

En fait, il me ramenait la date en format américain (01/31/09) au lieu de 31/01/09

il m'a suffit d'inverser la date