Checkbox à incrémentation automatique

Bonjour
Je sais que le titre n'est pas clair, je vais essayer de faire mieux.
J'ai construit un formulaire avec 40 questions
Chaque question a trois choix de réponses
Une seule de ces réponses peut être sélectionnée

J'ai donc écris ce code pour empêcher l'utilisateur de cocher plus d'une case

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CheckBox1_Click() CheckBox2.Value = False CheckBox3.Value = False End Sub Private Sub CheckBox2_Click() CheckBox1.Value = False CheckBox3.Value = False End Sub Private Sub CheckBox3_Click() CheckBox1.Value = False CheckBox2.Value = False End Sub

---

L'ennui c'est que je ne veux pas construire ce programme 40 fois, je cherche donc une macro qui va produire le même résultat pour CheckBox4, CheckBox5, CheckBox6 autant que pour CheckBox118, CheckBox119, CheckBox120

Merci

Bonjour,

Plutôt que de faire 140 sub, tu ne peux pas en faire 1 avec des if?

Je ne sais pas si ça marche c'est la première fois que je fais ça. Je laisse les pros corriger mon idée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Sub Caseàcocher_Cliquer()     Dim i As Integer   for i = 1 to 140   If CheckBox & i.Value = True then CheckBox & i+1.Value = False,_ Checkbox & i+2.Value=False,_       Next i+3   for i = 2 to 140   If CheckBox & i.Value = True then CheckBox & i-1.Value = False,_ Checkbox & i+1.Value=False,_   Next i+3   for i = 3 to 140   If CheckBox & i.Value = True then CheckBox & i-1.Value = False,_ Checkbox & i-2.Value=False,_   Next i+3   End sun

---

Bonjour,

Utilise des OptionButtons que tu groupes par 3 dans des Panels. 1 Panel par question.

Citation:

---

Envoyé par AlainTech

Bonjour,

Utilise des OptionButtons que tu groupes par 3 dans des Panels. 1 Panel par question.

---

Trop simple!!! Merci beaucoup AlainTech