1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Private Sub Sans_L_Click()
If Sans_L.Value = True Then
ActiveSheet.Range("$A$1:$L$327").AutoFilter Field:=2, Criteria1:="<>*L*", _
Operator:=xlAnd
Sans_L.BackColor = &HFF00& 'Vert
Else
ActiveSheet.Range("$A$1:$O$484").AutoFilter Field:=2
Sans_L.BackColor = &HFF& 'Rouge
End If
End Sub
Private Sub Sans_T_Click()
If Sans_T.Value = True Then
ActiveSheet.Range("$A$1:$L$327").AutoFilter Field:=2, Criteria1:="<>*T*", _
Operator:=xlAnd
Sans_T.BackColor = &HFF00& 'Vert
Else
ActiveSheet.Range("$A$1:$O$484").AutoFilter Field:=2
Sans_T.BackColor = &HFF& 'Rouge
End If
End Sub |
Partager