Version imprimable
Une nouveauté pour moi --> A chaque manche il y a un tirage pour la composition des équipes ?
D'ailleurs, je pensais les seules rencontres aléatoires mais pas la composition des équipes (je pensais que la composition était en fonction de l'ordre d'inscription).
Bertrand
Tout à fait, tout est aléatoire et c'est probablement à cause de cela que l'on retrouve des doublons, alors qu'avec la macro de l'algoritme, il n'y en a plus !
Marcel
Ok.
Continuons l'exploration de la macro de tirage au sort.
Code:Randomize
C'est du classique : Initialisation du générateur de nombres aléatoires
Code:ReDim Preserve Tablo(1 To UBound(Tablo, 1), 1 To UBound(Tablo, 2) + 1)
On redimensionne le tableau Tablo en rajoutant un élément sur la deuxième dimension. Difficile de dire à quoi ça va servir à ce stade
Code:
2
3
4
5
6
7
8
9
En fonction de l'option cochée sur le formulaire, on détermine le nombre de manches (soit 3, soit 4, soit 5)
Prochaine étape : enfin le coeur du système...
Bertrand
Enfin le coeur du système.... yessss, on y arrive... petit à petit l'oiseau fait son nid...
Marcel
Code:For L = 1 To NbManche
On crée une boucle que l'on va répéter en fonction du nombre de manches
Code:
2
3
4
On crée une boucle que l'on va répéter en fonction du nombre d'inscrits. Pour chaque inscrit, on affecte un Rnd (un nombre aléatoire) dans la dimension nouvellement créée.
Là encore, c'est du classique.
Code:
2
3
4
5
6
7
8
9
10
11
12
On crée un algorithme de tri à bulle pour ordonner les éléments obtenus par le mode aléatoire. Toujours du classique.
Par contre, il est important de noter qu'à chaque nouvelle manche, l'ordre se perd, écrasé par la boucle de la manche suivante
Bertrand
Beaucoup trop classique, peut-être...
C'est pour cela qu'il est temps d'essayer de remplacer cet algorithme par le nouveau.
Marcel
Code:With Sheets("P" & L)
On sélectionne l'onglet de la manche sur laquelle on boucle.
Code:
2
3
Sans doute la phase d'initialisation des variables :
J = la première ligne à remplir
Cl = je suppose la colonne à remplir
num = la variable qui va s'incrémenter et représenter l'indice du tableau.
Code:
2
3
4
5
6
7
8
9
10
11
La boucle qui affecte les triplettes = chaque participant est placé progressivement selon l'ordre obtenu sur la base des nombres aléatoires reclassés par le tri à bulle.
Cl est bien le n° de la colonne --> lorsqu'il atteint 7, on passe à la ligne (J=J+1) et la colonne repasse à 1 (Cl = 1).
A chaque participant placé, num s'incrémente de 1.
Code:
2
3
4
5
6
7
8
9
10
11
12
13
La boucle qui affecte les doublettes = chaque participant est placé progressivement selon l'ordre obtenu sur la base des nombres aléatoires reclassés par le tri à bulle.
Cl est bien le n° de la colonne -->
lorsqu'il atteint 3, la colonne passe directement à 4,
lorsqu'il atteint 6, la colonne repasse à 1 (Cl = 1) et la ligne change.
A chaque participant placé, num s'incrémente de 1.
Bertrand
Ton analyse est parfaite.
Marcel
Code:
2
3
4
5
6
7
Dernière partie : manifestement, on affecte un des neuf terrains à chaque rencontre. Il y a un GoTo... hum, on verra
Code:Set Plage = .Range("I4:I" & J - 1)
La plage où sont renseignés les terrains
Code:For Each Cel In Plage
Pour chacune des rencontres
Code:
2
3
4Autre: Alea = Int(9 * Rnd + 1) If Application.CountIf(Plage, Alea) Then GoTo Autre Else Cel = Alea Next Cel
Rnd donne un nombre aléatoire entre 0 et 1. Une fois multiplié par 9 et ajouté à 1, on retient la partie entière. Application.CountIf(Plage, Alea) permet de vérifier que le numéro du terrain n'ai pas déjà tiré au sort. Si c'est le cas, le Goto provoque un renvoi à la ligne "Autre:"
L'analyse se termine là.
Les conclusions : il n'y a aucun rapprochement entre les tirages de chaque manche donc il peut y avoir des doublons. A part ça, c'est du classique et c'est plutôt bien.
Il faut donc mémoriser le tirage de chaque manche et être capable de rapprocher les résultats.
Qu'est ce qui pose problème :
D'être deux fois (ou plus) associé aux mêmes partenaires ?
D'être deux fois (ou plus) confronté aux mêmes adversaires ?
Ou les deux ?
Bertrand
Le top serait les 3 mais la plus importante est d'abord :
la 1ère de ne pas jouer 2 fois avec le même partenaire, ensuite
la 2ème serait idéale, de ne pas rencontrer 2 fois le même partenaire et
la 3éme, le summum...
Marcel
Il va falloir se creuser les méninges.
On va déjà essayer "de ne pas jouer 2 fois avec le même partenaire"
A priori, le numéro d'équipe, même s'il n'est pas apparent permettrait de comparer entre les manches. Peut-être à travers un deuxième tableau de variables qui partagerai les mêmes indices.
Le deuxième problème, c'est qu'en plus de déceler l'anomalie, il faut être en mesure de la corriger. C'est à dire de relancer un tirage complet, jusqu'à satisfaction...
Bertrand
Petite question Bertrand :
Ne peut-on pas remplacer cette macro-ci, par la macro de l'algorithme que j'ai mis sur le forum et essayer de l'adapter au reste du programme et en l'exploitant au maximum?
Marcel
Je ne comprend pas : tu veux modifier le fichier que nous avons analysé ? Modifier mon amorce précédente ? Ou autre chose ?
Si tu as déjà une idée de modification, je suis preneur ;)
De mon coté, j'avais dans l'idée de faire un fichier épuré sur la base de la macro analysée.
Bertrand
Ok, pour moi, pas de problème pour une solution ou l'autre, à partir du moment
que le résultat final, soit le meilleur...
Bertrand, ne penses-tu pas qu'il est temps d'aller faire un petit somme et que de toute façon, ne dit-on, que la nuit porte conseil.
En plus, Morphée sera ravie de notre présence... :zoubi:
A demain Bertand et bonne nuit
Marcel
Bonjour,
Bon, j'ai une solution mais elle n'est pas top pour l'instant (il y a du goto, c'est lent, ...)
Les plus : On remplit la liste sur la gauche dans l'onglet "Liste", on choisit le nombre de manches puis on lance le tirage.
J'ai mis un critère : la recherche de combinaison n'est lancée qu'à partir de 17 participants ou plus. Sinon, ça peut durer un bon moment (et ça c'est le moins).
La méthode : relancer un tirage sur la dernière manche, vérifier si c'est bon, si ce n'est pas le cas, relancer un tirage... Jusqu'à 5.000 tentatives.
Une fois la cinq mille une ième tentative atteinte et ce sans avoir trouvé la combinaison, on relance un tirage depuis la première manche.
Ce qui est le plus long, c'est avec 5 manches et moins d'individus.
En bref, c'est visuellement sympa de voir calculer l'ordi mais ce n'est pas efficace. A voir ce que d'autres forumeurs peuvent produire.
Consignes de sécurité : si la boucle dure trop longtemps ou si on lance une boucle sans résultat possible --> combinaison des touches Ctrl + Pause pour en sortir.
BertrandCode:
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
Bonjour Bertrand,
D'abord je voudrais te remercier de ton aide éfficace et précieuse.
Je viens d'éffectuer plusieurs tests qui sont à première vue excellents au niveau des doublons entre partenaires jouant ensemble ( il n' y en a plus ).
Serait-il possible maintenant de trouver la solution pour que 2 partenaires ne se rencontrent plus ?
Marcel
Bonjour,
Version 2-1 = évite les doublons "partenaires" et "adversaires"
Le code (à retravailler) :
Je te laisse faire des tests.Code:
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
195
196
197
198
199
200
201
202
203
Bertrand
Bertrand,
Je viens de tester une première fois et j'ai simplement tester ton fichier en passant de 2 manches à 3 manches.
Il tourne continuellement et bien-sûr ne trouve pas la solution.
Marcel
Bonjour Bertrand,
Je viens d'éffectuer plusieurs tests.
Concernant la version V.2 sans doublons partenaires :
en 4 parties, cela fonctionne bien (le temps d'attente le plus long a été de 4 minutes, sinon il variait de 10" à 45").
en 5 parties, par contre cela fonctionne bcp plus lentement et boucle assez bien.
Concernant la version V.2-1 sans doublons partenaires et adversaires :
en 2 parties : c'est ok
en 3 parties et plus : cela ne va plus (boucle)
Cordialement
Marcel
Bonjour,
La version 2 est une version intermédiaire pour tester et visualiser les résultats. Il va falloir remplacer les tableaux excel qui servent de support par des variables tableau VBA.
Cela devrait déjà considérablement accélérer le calcul.
Bertrand