Filtre automatique en macro arrête l'éxecution de la macro
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:
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.
