Bouton Macro Active-Désactive
Bonjour,
Je débute sur le VBA et je cherche à mettre en place un bouton de filtre automatique sur Excel. Je souhaite que lorsque l'on clique dessus une première fois, il s'active, une deuxième fois, il se désactive. Voici ce que j'ai fait pour le moment :
Code:
1 2 3 4 5 6 7 8 9 10
| Sub Filtre_Date2014()
With Worksheets("Données")
If Range("A2").AutoFilterMode Then
Range("A2").AutoFilter Field:=2, Criteria1:=CDate(41883)
Else
Range("A2").AutoFilter Field:=2
End With
End Sub |
J'ai plusieurs boutons de ce type, il faut que les filtres puissent s'ajouter aux autres.
Merci d'avance.