Aide pour simplifier un code Vba
Bonsoir à tous,
Je viens chercher de l'aide afin de simplifier un code qui prend beaucoup de place en écriture.
Ce code entre dans la composition d'un calendrier et représente les jours. Il y en a 42 volontairement.
Pouvez-vous y jeter un œil s'il vous plaît ?
Je vous en remercie par avance
Code:
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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
'Les jours sont repérés de J1 à J42 - La valeur des propriétés .tag sont de 1 à 42
Private Sub J1_Click()
ChJour Val(J1.Tag)
End Sub
Private Sub J2_Click()
ChJour Val(J2.Tag)
End Sub
Private Sub J3_Click()
ChJour Val(J3.Tag)
End Sub
Private Sub J4_Click()
ChJour Val(J4.Tag)
End Sub
Private Sub J5_Click()
ChJour Val(J5.Tag)
End Sub
Private Sub J6_Click()
ChJour Val(J6.Tag)
End Sub
Private Sub J7_Click()
ChJour Val(J7.Tag)
End Sub
Private Sub J8_Click()
ChJour Val(J8.Tag)
End Sub
Private Sub J9_Click()
ChJour Val(J9.Tag)
End Sub
Private Sub J10_Click()
ChJour Val(J10.Tag)
End Sub
Private Sub J11_Click()
ChJour Val(J11.Tag)
End Sub
Private Sub J12_Click()
ChJour Val(J12.Tag)
End Sub
Private Sub J13_Click()
ChJour Val(J13.Tag)
End Sub
Private Sub J14_Click()
ChJour Val(J14.Tag)
End Sub
Private Sub J15_Click()
ChJour Val(J15.Tag)
End Sub
Private Sub J16_Click()
ChJour Val(J16.Tag)
End Sub
Private Sub J17_Click()
ChJour Val(J17.Tag)
End Sub
Private Sub J18_Click()
ChJour Val(J18.Tag)
End Sub
Private Sub J19_Click()
ChJour Val(J19.Tag)
End Sub
Private Sub J20_Click()
ChJour Val(J20.Tag)
End Sub
Private Sub J21_Click()
ChJour Val(J21.Tag)
End Sub
Private Sub J22_Click()
ChJour Val(J22.Tag)
End Sub
Private Sub J23_Click()
ChJour Val(J23.Tag)
End Sub
Private Sub J24_Click()
ChJour Val(J24.Tag)
End Sub
Private Sub J25_Click()
ChJour Val(J25.Tag)
End Sub
Private Sub J26_Click()
ChJour Val(J26.Tag)
End Sub
Private Sub J27_Click()
ChJour Val(J27.Tag)
End Sub
Private Sub J28_Click()
ChJour Val(J28.Tag)
End Sub
Private Sub J29_Click()
ChJour Val(J29.Tag)
End Sub
Private Sub J30_Click()
ChJour Val(J30.Tag)
End Sub
Private Sub J31_Click()
ChJour Val(J31.Tag)
End Sub
Private Sub J32_Click()
ChJour Val(J32.Tag)
End Sub
Private Sub J33_Click()
ChJour Val(J33.Tag)
End Sub
Private Sub J34_Click()
ChJour Val(J34.Tag)
End Sub
Private Sub J35_Click()
ChJour Val(J35.Tag)
End Sub
Private Sub J36_Click()
ChJour Val(J36.Tag)
End Sub
Private Sub J37_Click()
ChJour Val(J37.Tag)
End Sub
Private Sub J38_Click()
ChJour Val(J38.Tag)
End Sub
Private Sub J39_Click()
ChJour Val(J39.Tag)
End Sub
Private Sub J40_Click()
ChJour Val(J40.Tag)
End Sub
Private Sub J41_Click()
ChJour Val(J41.Tag)
End Sub
Private Sub J42_Click()
ChJour Val(J42.Tag)
End Sub |
