A voir également:
- Boules tirage au sort
- Aucun son ne sort de mon pc - Guide
- Tirage au sort excel aléatoire sans doublon ✓ - Forum Excel
- Son qui sort du téléphone et des écouteurs bluetooth - Forum Xiaomi
- 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)
