Checkbox à incrémentation automatique

**isrdum** · 21/08/2014, 15h26

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**had4789** · 21/08/2014, 15h55

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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