Bonjour à tous,
J'ai un UserForm avec plusieurs CheckBox.
Le fait de cliquer sur certaines d'entres elles en désactivent d'autres.
D'ou ce code:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox2.Enabled = False
CheckBox3.Enabled = False
CheckBox4.Enabled = False
CheckBox6.Enabled = False
CheckBox16.Enabled = False
CheckBox17.Enabled = False
CheckBox15.Enabled = False
CheckBox18.Enabled = False
Else
CheckBox2.Enabled = True
CheckBox3.Enabled = True
CheckBox4.Enabled = True
CheckBox6.Enabled = True
CheckBox16.Enabled = True
CheckBox17.Enabled = True
CheckBox15.Enabled = True
CheckBox18.Enabled = True
End If
End Sub
Est-il possible de simplifier ce code ?
J'ai essayé de tout mettre sur la même ligne avec des And, mais ça ne fonctionne pas.
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox2.Enabled = False And CheckBox3.Enabled = False And........And CheckBox18.Enabled =False
Else
CheckBox2.Enabled = True And CheckBox3.Enabled = True And.......And CheckBox18.Enabled =True
End If
End Sub
Merci à tous pour votre aide,
a bientôt,
xorsankukai