Bonjour

J'ai placé deux cases à cocher sur une feuille de calcul.
La première est cochée et l'autre non.

A l'exécution du code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub Caseàcocher2_QuandClic()
  Dim i As Integer
  For i = 1 To 2
  If ActiveSheet.CheckBoxes(i).Value = True Then _
       MsgBox "Case " + Str(i) + " cochée" Else _
       MsgBox "Case " + Str(i) + " non cochée"
  Next
End Sub
, le message "non coché" m'est renvoyé pour les deux cases.

Comment cela est-il possible ?

Merci d'avance pour votre réponse