Bouton Macro Active-Désactive

Version imprimable

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.

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
Sub Filtre_Date2014()
With Worksheets("Données")
    If .AutoFilter.Filters(2).On = False Then
        Range("A2").AutoFilter Field:=2, Criteria1:=CDate(41883)
    Else
        Range("A2").AutoFilter Field:=2
    End If
End With
End Sub

Bonjour,

j'ai repris le code de Daniel

Code:

1
2
3
Private Sub CommandButton1_Click()
Filtre_Date2014 1, "41883", Me.CommandButton1
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Filtre_Date2014(MyField As Integer, MyDate As String, MyControl As Object)
With Worksheets("Données")
    If .AutoFilter.Filters(MyField).On = False Then
        MyControl.Caption = "Stop Flitre"
        .Cells(2, MyField).AutoFilter Field:=MyField, Criteria1:=CDate(MyDate)
    Else
        .Cells(2, MyField).AutoFilter Field:=MyField
        MyControl.Caption = "Start Flitre"
    End If
End With
End Sub

08/07/2014, 13h57
arngui

C'est parfait, merci beaucoup de votre rapidité de réponse.

Cdt,