Re : Cliquer pour sélectionner et déselectionner
Je reviens à la charge...
J'ai modifié ma macro, en ajoutant ce début (cf code cidessous). Cependant, la macro s'execute en entier... Il filtre, puis défiltre...
Je sens que je suis proche mais peut etre encore loin...
" If Selection.AutoFilter(Field:=8, Criteria1:="<>travail") = True Then
Selection.AutoFilter Field:=8
Else
Selection.AutoFilter Field:=8, Criteria1:="<>travail", Operator:=xlAnd
ActiveSheet.Shapes("Rectangle 48").Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 18
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(153, 0, 0)
Selection.ShapeRange.Fill.BackColor.SchemeColor = 44
Selection.ShapeRange.Fill.TwoColorGradient msoGradientHorizontal, 4
Selection.Font.ColorIndex = 2
Range("A1").Select
End If
End Sub