Bonjour à tous,
J'ai un soucis que je n'arrive pas à démêler, et ne trouve pas de réponse sur la toile.
Voilà je veux realizer des filtres automatiques, un ou plusieurs selon les besoins sur un tableau, mais lorsque je teste le truc, une fois le filter appliqué, la macro est terminée avant meme de passer par Exit Sub. Du coup, je suis coincée pour enchaines soit avec d'autres filtres, soit sur d'autres actions.

La macro de base est celle ci:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub FiltPlan()
'Filtre sur les projets gardés au plan
    Set plage = Range("A5").CurrentRegion
    plage.AutoFilter Field:=13, Criteria1:="O", Operator:=xlFilterValues
End Sub
 
Par ailleurs le filtre ne marche pas correctement sur les dates, malgré le détournement de la syntaxe de l'enregistrement:
Sub FiltFin()
'Filtre sur la date de fin +0 mois/- 2 mois
    debut = DateSerial(Year(Date), Month(Date) - 2, 1)
    fin = DateSerial(Year(Date), Month(Date), 1)
    Set plage = Range("A5").CurrentRegion
    plage.AutoFilter Field:=17, Criteria1:= _
            ">=" & debut, Operator:=xlAnd, Criteria2:="<=" & fin, Operator:=xlFilterValues
End Sub
Est-ce que vous pourriez m'aider? J'ai tenté de passer par le filtre élaboré, mais je dois garder les ascenseurs du filtre automatique...

Merci d'avance de votre aide.