Discussion :

[xababaTT]

Bonjour cher Forum

J’avais déjà ouvert un post sur le sujet : Onglet et affectation des données selon un tableau de correspondance auquel j’ai une réponse comme quoi c’était faisable et bien fait d’ailleurs par desparados.

Aussi, après les divers conseils (Transitoire), j’ai réfléchis d’avantage sur le sujet et très bien avancé d’ailleurs. Mais toujours au même point sur ce point capital pour la suite de mon projet.

Donc, à partir de la feuille Edit_poule (à titre d’exemple prendre la série C07), qui contient des feuilles de match dont on a rentré les scores, le classement des joueurs se faisant automatiquement.

Les 2 premiers joueurs de chaque poule sont qualifiés pour la suite (que se soit des poules de 2,3,4 ou 5). A ces joueurs ont leurs affectent des codes de sorties de poule A1,A2, B1, B2 etc… .
La lettre A, B, C etc.. désigne la poule
Le chiffre 1, 2 désigne s’il a terminé 1er ou 2ème.

La série C07 contient 9 poules pour cet exemple soit 18 joueurs qui seront qualifiés. (bien entendu évolutive en fonction)
A l’aide du tableau de correspondance, on recherche le nombre de poule 9 pour 18 joueurs (colonne K), celui-ci indique qu’il faut utiliser un tableau de 32 joueurs.

L’idée serait de dupliquer à l’aide d’un bouton « Ventiler » le tableau de 32, le renommé T+N°série et :
- Affecté dans la colonne C les codes de sorties figurant dans la colonne K du tableau de correspondance (blanc compris)
- Affecté dans la colonne D les noms & Prénoms des joueurs associés.

Dans le cas où se serait vraiment impossible, j’envisage de faire un recap sur une feuille de calcul pour faire la même chose !

En espérant d’avoir été suffisamment clair. Vous trouverez en PJ un fichier reprenant les éléments.
Merci de me faire savoir si c’est faisable et un énorme merci à ceux qui peuvent contribuer à mon projet associatif Ufolépien !!

[ARTURO83]

Bonjour,

Si j'ai bien tout compris (je ne suis pas spécialiste en tennis)

le fichier(Voir le Tab_32 et à appliquer aux autres tableaux)
Pièce jointe 530053

Une vue du résultat
Pièce jointe 530057

Cdlt

[xababaTT]

Bonjour Arturo83,

Ce n'est pas vraiment cela que j'attends. Dans la feuille POULE sont répertoriés des séries à l'intérieur desquelles, il y a des joueurs à ventiler PAR SERIE dans un tableau intégrale (soit un T64 - 32- 16-8-4) et en fonction des codes de sorties et à l'aide d'un tableau de correspondance. il faut utiliser :

- un tableau de 32 si le nombre de joueurs de la série XXX figurant dans la feuille POULE est supérieur à 18 et inférieur à 34
- un tableau de 16 si le nombre de joueurs de la série XXX figurant dans la feuille POULE est supérieur à 8 et inférieur à 18
- un tableau de 8 si le nombre de joueurs de la série XXX figurant dans la feuille POULE est supérieur à 4 et inférieur à 10
- un tableau de 4 si le nombre de joueurs de la série XXX figurant dans la feuille POULE est égal à 4


La série C07 contient 18 joueurs, à l’aide du tableau de correspondance, en ligne 3 on se positionne sur 18 joueurs (colonne K), celui-ci indique qu’il faut utiliser un tableau de 32 joueurs.

L’idée serait de dupliquer à l’aide d’un bouton « Ventiler » le tableau de 32, le renommé T+N°série et :
- Affecté dans la colonne B les codes de sorties figurant dans la colonne K du tableau de correspondance (blanc compris)
- Affecté dans la colonne C les noms & Prénoms des joueurs associés.

La série C00 contient 12 joueurs, à l’aide du tableau de correspondance, en ligne 3 on se positionne sur 12 joueurs (colonne N), celui-ci indique qu’il faut utiliser un tableau de 16 joueurs.

L’idée serait de dupliquer à l’aide d’un bouton « Ventiler » le tableau de 16, le renommé T+N°série et :
- Affecté dans la colonne B les codes de sorties figurant dans la colonne K du tableau de correspondance (blanc compris)
- Affecté dans la colonne C les noms & Prénoms des joueurs associés.


En PJ, un fichier avec un bouton "Ventilation" dans la feuille Poule mais il y a un bugg sur ce point que je ne vois pas le PB, (mais je n'y connais rien). J'ai juste adapté ce que je sais faire. Le bouton Ventilation est censé ventilé les joueurs dans les bons tableaux mais peut etre pas aux bons endroits. De plus, il serait mieux d'avoir un bouton "ventilation" mais par série.

Code :

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

   TAB_Sortie = Range("Sortie_" & DIC_C0.Count).Value

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
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
194
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
 
End Function