Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A4")) Is Nothing Then Call ClearActiveXControlCheckBoxesInRange(Me.[C6:E13])
End Sub
'---------------------------
'Manip sur Contrôles ActiveX
'---------------------------
Sub ClearActiveXControlCheckBoxesInRange(Rng As Range)
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
'La Shape est un ActiveX Control
If Shp.Type = msoOLEControlObject Then
'La Shape est une CheckBox
If TypeName(Shp.OLEFormat.Object.Object) = "CheckBox" Then
'La Shape est dans le Range demandé
If Not Intersect(Rng, Shp.TopLeftCell) Is Nothing Then
Shp.OLEFormat.Object.Object.Value = False
End If
End If
End If
Next
End Sub