Bonjour,
Ton code doit ressembler à ça :
Private Sub CheckBox1_Click()
If CheckBox1.Value = 0 Then
Range("A1").Interior.ColorIndex = 3
Else: Range("A1").Interior.ColorIndex = 4
End If
End Sub
Pour calculer le nombre de cases cochées dans ta page, voici une macro partant du principe que toutes tes checkbox commencent par le nom "checkbox" (ça veut dire que tu n'as pas modifié les noms. EN effet, les contrôles dans les feuilles ne sont pas des Control (comme pour les Userforms) mais des Shapes ou OleObjects... Donc, il faut les identifier par quelque chose :
Sub compter()
For Each C In Sheets("Feuil1").OLEObjects
If Left(C.Name, 8) = "CheckBox" Then
n = n - C.Object.Value
End If
Next
MsgBox n & " cases cochées"
End Sub
m@rina