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
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
Sub Ventilation()
'*********Déclarations**********'
Dim TAB_C0(), TAB_C1(), TAB_C2(), TAB_C3(), TAB_C4(), TAB_C5C(), TAB_C5A(), TAB_C6(), TAB_C7(), TAB_C8(), TAB_C9(), TAB_C10(), TAB_C11(), TAB_C12(), TAB_C13(), TAB_C14(), TAB_C15(), TAB_C16()
'*********Capture des Tableaux de POULES**********'
TAB_C0 = Range("Serie_C00").Value
TAB_C1 = Range("Serie_C01").Value
TAB_C2 = Range("Serie_C02").Value
TAB_C3 = Range("Serie_C03").Value
TAB_C4 = Range("Serie_C04").Value
TAB_C5A = Range("Serie_C5A").Value
TAB_C5C = Range("Serie_C5C").Value
TAB_C6 = Range("Serie_C06").Value
TAB_C7 = Range("Serie_C07").Value
TAB_C8 = Range("Serie_C08").Value
TAB_C9 = Range("Serie_C09").Value
TAB_C10 = Range("Serie_C10").Value
TAB_C11 = Range("Serie_C11").Value
TAB_C12 = Range("Serie_C12").Value
TAB_C13 = Range("Serie_C13").Value
TAB_C14 = Range("Serie_C14").Value
TAB_C15 = Range("Serie_C15").Value
TAB_C16 = Range("Serie_C16").Value
'**************Création du Tableau C0*************'
Call Creation_Tableau(TAB_C0)
'**************Création du Tableau C1*************'
Call Creation_Tableau(TAB_C1)
'**************Création du Tableau C2*************'
Call Creation_Tableau(TAB_C2)
'**************Création du Tableau C3*************'
Call Creation_Tableau(TAB_C3)
'**************Création du Tableau C4*************'
Call Creation_Tableau(TAB_C4)
'**************Création du Tableau C5A*************'
Call Creation_Tableau(TAB_C5A)
'**************Création du Tableau C5C*************'
Call Creation_Tableau(TAB_C5C)
'**************Création du Tableau C6*************'
Call Creation_Tableau(TAB_C6)
'**************Création du Tableau C7*************'
Call Creation_Tableau(TAB_C7)
'**************Création du Tableau C8*************'
Call Creation_Tableau(TAB_C18)
'**************Création du Tableau C9*************'
Call Creation_Tableau(TAB_C9)
'**************Création du Tableau C10*************'
Call Creation_Tableau(TAB_C10)
'**************Création du Tableau C11*************'
Call Creation_Tableau(TAB_C11)
'**************Création du Tableau C12*************'
Call Creation_Tableau(TAB_C12)
'**************Création du Tableau C13*************'
Call Creation_Tableau(TAB_C13)
'**************Création du Tableau C14*************'
Call Creation_Tableau(TAB_C14)
'**************Création du Tableau C15*************'
Call Creation_Tableau(TAB_C15)
'**************Création du Tableau C16*************'
Call Creation_Tableau(TAB_C16)
End Sub
Function Creation_Tableau(TAB_TEMP)
Dim TAB_Final()
TAB_Final = Traitement(TAB_TEMP)
T_Temp = Select_TXX(TAB_Final(1, 1))
Nom_Feuille = T_Temp & " " & TAB_TEMP(1, 1)
Application.DisplayAlerts = False
If Sht(Nom_Feuille) = True Then Sheets(Nom_Feuille).Delete
Application.DisplayAlerts = True
Sheets(T_Temp).Copy After:=Sheets(T_Temp)
ActiveSheet.Name = Nom_Feuille
Call Create_Final(T_Temp, TAB_Final)
End Function
Function Create_Final(T_Temp, TAB_Final)
Indice = 2
Select Case T_Temp
Case Is = "T64"
For i = 2 To 128
Range("B" & i) = TAB_Final(Indice, 1)
Range("C" & i) = TAB_Final(Indice, 2)
i = i + 1
Indice = Indice + 1
Next i
Case Is = "T32"
For i = 2 To 64
Range("B" & i) = TAB_Final(Indice, 1)
Range("C" & i) = TAB_Final(Indice, 2)
i = i + 1
Indice = Indice + 1
Next i
Case Is = "T16"
For i = 2 To 32
Range("B" & i) = TAB_Final(Indice, 1)
Range("C" & i) = TAB_Final(Indice, 2)
i = i + 1
Indice = Indice + 1
Next i
Case Is = "T8"
For i = 2 To 16
Range("B" & i) = TAB_Final(Indice, 1)
Range("C" & i) = TAB_Final(Indice, 2)
i = i + 1
Indice = Indice + 1
Next i
Case Is = "T4"
For i = 2 To 10
If i = 6 Then i = 8
Range("B" & i) = TAB_Final(Indice, 1)
Range("C" & i) = TAB_Final(Indice, 2)
i = i + 1
Indice = Indice + 1
Next i
End Select
End Function
Function Traitement(TAB_TEMP)
Dim DIC_C0
Dim TAB_Sortie()
Set DIC_C0 = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(TAB_TEMP, 1)
If TAB_TEMP(i, 2) = 1 Or TAB_TEMP(i, 2) = 2 Then DIC_C0.Add TAB_TEMP(i, 3), TAB_TEMP(i, 1)
Next i
TAB_Sortie = Range("Sortie_" & DIC_C0.Count).Value
ReDim Preserve TAB_Sortie(1 To UBound(TAB_Sortie, 1), 1 To 2)
For i = 2 To UBound(TAB_Sortie, 1)
If DIC_C0.exists(TAB_Sortie(i, 1)) Then TAB_Sortie(i, 2) = DIC_C0(TAB_Sortie(i, 1))
Next i
Traitement = TAB_Sortie
End Function
Function Select_TXX(TEMP)
Dim T_Temp As String
Select Case TEMP
Case Is > 32
T_Temp = "T64"
Case Is > 16
T_Temp = "T32"
Case Is > 8
T_Temp = "T16"
Case Is > 4
T_Temp = "T8"
Case Else
T_Temp = "T4"
End Select
Select_TXX = T_Temp
End Function
Function Sht(Name) As Boolean
Dim s As Object
On Error Resume Next
Set s = Sheets(Name)
If Err = 0 Then Sht = True
Set s = Nothing
End Function |
