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
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
A voir également:
- Boules tirage au sort
- Jeux de boules gratuits à télécharger - Télécharger - Jeux vidéo
- Aucun son ne sort de mon pc - Guide
- Tirage au sort excel aléatoire sans doublon ✓ - Forum Excel
- Tirage au sort excel - Forum Programmation
- Tirage loto 5/90 ✓ - Forum Excel
2 réponses
redaiwa
Messages postés
351
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
25 janvier 2024
119
Modifié par redaiwa le 30/10/2014 à 10:50
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:
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)
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
30 oct. 2014 à 13:40
merci beaucoup je vais essayer cette formule