Bonjour à tous,

J'ai tapé ce code qui selon le choix opéré dans une TextBox affiche 3 ou 12 autres TextBox.
Comme vous pouvez le constater, c'est lourd et long.
Pouvez-vous m'aider à le raccourcir s'il vous plait ?
J'ai déjà essayé mais j'ai tout planté.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
 
Private Sub T4_Change()
'Si je tape 1 - seuls les labels et TextBoxs 6 à 8 sont visibles
If T4.Value = 1 Then
Lab9.Visible = False
Lab10.Visible = False
Lab11.Visible = False
Lab12.Visible = False
Lab13.Visible = False
Lab14.Visible = False
Lab15.Visible = False
Lab16.Visible = False
Lab17.Visible = False
T9.Visible = False
T10.Visible = False
T11.Visible = False
T12.Visible = False
T13.Visible = False
T14.Visible = False
T15.Visible = False
T16.Visible = False
T17.Visible = False
End If
'Si je tape 2 - seuls les labels et TextBoxs 6 à 11 sont visibles
If T4.Value = 2 Then
Lab9.Visible = True
Lab10.Visible = True
Lab11.Visible = True
Lab12.Visible = False
Lab13.Visible = False
Lab14.Visible = False
Lab15.Visible = False
Lab16.Visible = False
Lab17.Visible = False
T9.Visible = True
T10.Visible = True
T11.Visible = True
T12.Visible = False
T13.Visible = False
T14.Visible = False
T15.Visible = False
T16.Visible = False
T17.Visible = False
End If
If T4.Value = 3 Then
'Si je tape 3 - seuls les labels et TextBoxs 6 à 14 sont visibles
Lab9.Visible = True
Lab10.Visible = True
Lab11.Visible = True
Lab12.Visible = True
Lab13.Visible = True
Lab14.Visible = True
Lab15.Visible = False
Lab16.Visible = False
Lab17.Visible = False
T9.Visible = True
T10.Visible = True
T11.Visible = True
T12.Visible = True
T13.Visible = True
T14.Visible = True
T15.Visible = False
T16.Visible = False
T17.Visible = False
End If
If T4.Value = 4 Then
'Si je tape 4 - Tous les labels et TextBoxs sont visibles
Lab9.Visible = True
Lab10.Visible = True
Lab11.Visible = True
Lab12.Visible = True
Lab13.Visible = True
Lab14.Visible = True
Lab15.Visible = True
Lab16.Visible = True
Lab17.Visible = True
T9.Visible = True
T10.Visible = True
T11.Visible = True
T12.Visible = True
T13.Visible = True
T14.Visible = True
T15.Visible = True
T16.Visible = True
T17.Visible = True
End If
If T4.Value = "" Then
'Si rien n'est tapé 1 - seuls les labels et TextBoxs 6 à 8 sont visibles
Lab9.Visible = False
Lab10.Visible = False
Lab11.Visible = False
Lab12.Visible = False
Lab13.Visible = False
Lab14.Visible = False
Lab15.Visible = False
Lab16.Visible = False
Lab17.Visible = False
T9.Visible = False
T10.Visible = False
T11.Visible = False
T12.Visible = False
T13.Visible = False
T14.Visible = False
T15.Visible = False
T16.Visible = False
T17.Visible = False
End If
End Sub