' contrôle formulaire
Sub decoche()
Dim Ctl As Shape
For Each Ctl In ActiveSheet.Shapes
If Left(Ctl.Name, 9) = "Check Box" Then Ctl.ControlFormat.Value = xlOff
Next Ctl
End Sub
Sub coche()
Dim Ctl As Shape
For Each Ctl In ActiveSheet.Shapes
If Left(Ctl.Name, 9) = "Check Box" Then Ctl.ControlFormat.Value = xlOn
Next Ctl
End Sub
' contrôle activeX
Sub decocheX()
Dim Ctl As OLEObject
For Each Ctl In ActiveSheet.OLEObjects
If TypeOf Ctl.Object Is MSForms.CheckBox Then Ctl.Object = False
Next Ctl
End Sub
Sub cocheX()
Dim Ctl As OLEObject
For Each Ctl In ActiveSheet.OLEObjects
If TypeOf Ctl.Object Is MSForms.CheckBox Then Ctl.Object = True
Next Ctl
End Sub