Option Explicit
Private Sub ToggleButton1_Click()
If ToggleButton1 Then
Range("A3").Select
Range("$A$3:$A$1000").AutoFilter Field:=1, Criteria1:="oK"
ToggleButton1.Caption = "OK"
ToggleButton1.BackColor = vbGreen
Else
Range("A3").Select
Range("$A$3:$A$1000").AutoFilter Field:=1
ToggleButton1.Caption = "Tout"
ToggleButton1.BackColor = vbRed
End If
End Sub
Private Sub ToggleButton2_Click()
If ToggleButton2 Then
Range("K3").Select
Range("$K$3:$K$1000").AutoFilter Field:=11, Criteria1:="oui"
ToggleButton2.Caption = "Service"
ToggleButton2.BackColor = vbGreen
Else
Range("K3").Select
Range("$K$3:$K$1000").AutoFilter Field:=11
ToggleButton2.Caption = "Tout"
ToggleButton2.BackColor = vbRed
End If
End Sub
Private Sub ToggleButton3_Click()
If ToggleButton3 Then
Range("L3").Select
Range("$L$3:$L$1000").AutoFilter Field:=12, Criteria1:="oui"
ToggleButton3.Caption = "Cuisine"
ToggleButton3.BackColor = vbGreen
Else
Range("L3").Select
Range("$L$3:$L$1000").AutoFilter Field:=12
ToggleButton3.Caption = "Tout"
ToggleButton3.BackColor = vbRed
End If
End Sub