Simplifier code avec condition

Version imprimable

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

Code:

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

bonjour,
une possibilité vite vue :

Code:

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

Bonjour,

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

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:

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 :lol: D'ailleurs, je suis à peu près certain, vu où tu l'utilises, que ce que je te propose ne te servira à rien :calim2:

20/05/2009, 12h27
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.
:merci: