Discussion :

[arngui]

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.

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

j'ai repris le code de Daniel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code Module Standard :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[arngui]

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

Cdt,