Word Case à cocher sur Word

[max1665451554514151564554]

Bonjour,

J'ai créer un QCM sur Word , une question de poser avec 4 possibilité de réponse possible en cases à cocher en activex mes une seul réponse possible

[]Checkbox1. [] checkbox2 [] checkbox3. [] Checkbox4

Exemple la bonne réponse et en []checkbox2

Je vous voudrais que quand je clic sur les cases à cocher 1,3,4 me renvoie un msgbox " mauvaise réponse " et que en cliquant sur le OK du msgbox la case ce décoche.

Et que quand je clic sur la case []checkbox2 me renvoie un msgbox "bonne réponse " que la case reste coché vu que c'est la bonne réponse.

Voila en espérant avoir était assez précis

Merci d'avance pour vos suggestions de réponse.

 

[Eric KERGRESSE]

Bonjour,

J'espère que vous n'êtes plus à plancher sur une solution....

Ce ne sont pas des Checkbox mais des OptionButtons qu'il faut utiliser puisque leur utilisation est exclusive. Vous bénéficierez d'une façon plus simple de la propriété GroupeName. Et dans chaque contrôle, attribuez le même nom à la propriété GroupeName. Ici, je lui ai donné le nom d'OptionListe.

Créez vos 4 Optionbuttons et dans le module ThisDocument de votre fichier, placez ceci :

Option Explicit

Private Sub OptionButton1_Click()
   MsgBox "Mauvaise réponse !", vbCritical
   OptionButton1.Value = False
End Sub

Private Sub OptionButton2_Click()
   MsgBox "Bonne réponse !", vbInformation
End Sub

Private Sub OptionButton3_Click()
   MsgBox "Mauvaise réponse !", vbCritical
   OptionButton3.Value = False
End Sub

Private Sub OptionButton4_Click()
   MsgBox "Mauvaise réponse !", vbCritical
   OptionButton4.Value = False
End Sub