Boules tirage au sort
arthurteddy
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
arthurteddy Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
arthurteddy Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
j'ai 17 équipes qui doivent toutes se rencontrer une seule fois sur 4 ou 5 journées maxi
comment faire merci par avance
comment faire merci par avance
A voir également:
- Boules tirage au sort
- Aucun son ne sort de mon pc - Guide
- Jeux de boules gratuits à télécharger - Télécharger - Jeux vidéo
- Tirage diapositives sur papier fnac - Forum Graphisme
- Je branche mes écouteurs mais le son sort du téléphone iphone ✓ - Forum Wiko
- Je branche mes écouteurs mais le son sort du téléphone samsung - Forum Samsung
2 réponses
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:
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)
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)
