Discussion :

[AMO05]

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

[Jean-Philippe André]

bonjour,
une possibilité vite vue :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CheckBox1_Click()
    Label21.Visible = CheckBox1 
    Label24.Visible = CheckBox1 
    Label25.Visible = CheckBox1 
    Label26.Visible = CheckBox1 
    Label27.Visible = CheckBox1 
    ListBox1.Visible = CheckBox1 
    CommandButton2.Visible = Not CheckBox1 
    Suites.CheckBox2.Enabled = Not CheckBox1 
    Résultat.CheckBox1.Enabled = Not CheckBox1 
End Sub

[DeaD78]

Bonjour,

Si tu as besoin d'utiliser cela plusieurs fois, tu peux mettre dans un module

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
Sub CB1_param()
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

Ainsi, à chaque fois que tu en as besoin, un simple Call suffira :

Code :

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

1
2
3
Private Sub CheckBox1_Click()
    Call CB1_param
End Sub

C'est tout ce que je vois pour le moment mais peut-être auras-tu de novuelles réponses D'ailleurs, je suis à peu près certain, vu où tu l'utilises, que ce que je te propose ne te servira à rien

[AMO05]

Dead78 j'ai en effet pris la réponse de jpcheck car ça correspondait à mon problème, par contre ta réponse me servira certainemetn pour d'autres codes.