Bonjour à tous
Peux t-on simplifier le code ci dessous:

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
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
    Label21.Visible = True
    Label24.Visible = True
    Label25.Visible = True
    Label26.Visible = True
    Label27.Visible = True
    ListBox1.Visible = True
    CommandButton2.Visible = False
    Suites.CheckBox2.Enabled = False
    Résultat.CheckBox1.Enabled = False
Else
    Label21.Visible = False
    Label24.Visible = False
    Label25.Visible = False
    Label26.Visible = False
    Label27.Visible = False
    ListBox1.Visible = False
    CommandButton2.Visible = True
    Suites.CheckBox2.Enabled = True
    Résultat.CheckBox1.Enabled = True
End If
End Sub