Problème Beforeupdate avec une checkbox - Case à cocher

Bonjour,

J’ai créé un formulaire avec 2 contrôles dont une case à cocher (mais çà pourrait être n'importe quel autre contrôle).
Lorsque l’utilisateur clique sur la case à cocher je souhaiterait vérifier qu’il veut vraiment le faire et donc lui poser la question. Dans la négative, la valeur de la case à cocher ne devrait pas être modifiée.
Donc j’ai placé le code classique suivant :

Code:

---

1 2 3 4 5 6

Private Sub Cocher0_BeforeUpdate(Cancel As Integer) If MsgBox("Annuler la modif ?", vbYesNo, "titre") = vbYes Then Cancel = True Exit Sub End If End Sub

---

Ca marche bien sauf que lorsque je souhaite changer de contrôle, le code repasse très inutilement par cette procédure et qu’on boucle sans obtenir l’effet escompté.

Merci d’avance de votre aide