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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.