Boules tirage au sort

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)

merci beaucoup je vais essayer cette formule