Bonjour Davys et le forum,
Essaye ceci, en remplaçant A1 par la cellule dans laquelle le résultat doit s'afficher :
Sub CheckBoxes1()
'CheckBoxes de la boite à outils Contrôles sur une feuille de calcul (ActiveX)
Dim oleObj As OLEObject
For Each oleObj In ActiveSheet.OLEObjects
If TypeOf oleObj.Object Is MSForms.CheckBox Then
If oleObj.Object.Value Then
ActiveSheet.Range("A1") = "X"
Else
ActiveSheet.Range("A1") = ""
End If
'... suite du code
Slts
wally