Boules tirage au sort

Fermé
arthurteddy Messages postés 2 Date d'inscription jeudi 30 octobre 2014 Statut Membre Dernière intervention 30 octobre 2014 - 30 oct. 2014 à 08:43
arthurteddy Messages postés 2 Date d'inscription jeudi 30 octobre 2014 Statut Membre Dernière intervention 30 octobre 2014 - 30 oct. 2014 à 13:40
j'ai 17 équipes qui doivent toutes se rencontrer une seule fois sur 4 ou 5 journées maxi
comment faire merci par avance

2 réponses

redaiwa Messages postés 346 Date d'inscription mardi 7 octobre 2008 Statut Membre Dernière intervention 2 juin 2015 118
Modifié par redaiwa le 30/10/2014 à 10:50
Salam arthurteddy.

En supposant que le tableau suivant s'étend de A1 à C18,

n° Equipe Club
1 Equipe 1 Club A
2 Equipe 2 Club D
3 Equipe 3 Club C
4 Equipe 4 Club E
5 Equipe 5 Club E
6 Equipe 6 Club B
7 Equipe 7 Club B
8 Equipe 8 Club B
9 Equipe 9 Club B
10 Equipe 10 Club A
11 Equipe 11 Club A
12 Equipe 12 Club B
13 Equipe 13 Club B
14 Equipe 14 Club C
15 Equipe 15 Club D
16 Equipe 16 Club D
17 Equipe 17 Club D


on peut effectuer un mélange aléatoire de l'ordre des équipes grâce à ce code:

Sub Tirage()
Application.ScreenUpdating = False
Dim i, N, NbClubs As Integer
NbClubs = 17
Randomize
While NbClubs > 0
N = Int((NbClubs * Rnd) + 1) + 1
Rows(N).Cut
Rows(19).Select
Paste
Rows(N).Delete shift:=xlUp
NbClubs = NbClubs - 1
Wend
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


Il ne reste plus qu'à programmer les matchs suivant l'ordre obtenu, chaque équipe ne jouant qu'avec celles d'en-dessous d'elle.

C'est bien ça que tu voulais ?

"Repousse le mal par le bien; et voilà que celui avec qui tu avais une animosité devient tel un ami chaleureux" (Coran)
"Celui qui ne sait pas partager est infirme de ses émotions". (Marc Levy)
2
arthurteddy Messages postés 2 Date d'inscription jeudi 30 octobre 2014 Statut Membre Dernière intervention 30 octobre 2014
30 oct. 2014 à 13:40
merci beaucoup je vais essayer cette formule
0