Répéter même action pour plusieurs checkbox
salut à tous
sur une userform j'ai 36 checkbox et 36 textbox liés (par exp textbox1 et 2 sont liés à checkbox1 et 2) en sélectionnant checkbox1 je désactive checkbox2 j'active textbox1 et désactive textbox2 (en désélectionnant je réactive les deux checkbox et désactive les deux texbox)
je voudrais répéter la même action sur l'ensembles des checkbox de la userform
j'ai le code suivant pour les checkbox1 et 2 et textbox1 et 2
_________
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox2.Enabled = False
TextBox1.Enabled = True
TextBox2.Enabled = False
Else
End If
If CheckBox1.Value = False Then
CheckBox1.Enabled = True
CheckBox2.Enabled = True
TextBox1.Enabled = False
TextBox2.Enabled = False
Else
End If
End Sub |
________
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
CheckBox1.Enabled = False
TextBox2.Enabled = True
TextBox1.Enabled = False
Else
End If
If CheckBox2.Value = False Then
CheckBox1.Enabled = True
CheckBox2.Enabled = True
TextBox1.Enabled = False
TextBox2.Enabled = False
Else
End If
End Sub |
___________
comment faire pour éviter de répéter le même code pour les 36 checkbox
merci
