Poules pour tournois

[Gizmo29]

Bonjour à Toutes et Tous,

J'ai navigué sur votre site et forum et je le trouve tout simplement génial.

Félicitations aux administrateurs et modérateurs pour leurs travail.

Je voulais vous demander un service car je suis un vrais néophyte en ce qui concerne les calculs excel.

Donc voici mon problème, je suis en train d'organiser un tournois CSS et donc celui-ci se composerait de 8 poules de 4 équipes soit 32 équipes au total

Je voulais savoir si vous pouviez me proposer une formule ou macro (je sais pas trop comment appeler cela) pour pouvoir effectuer un tirage aléatoire des poules.

Je vous remercie par avance.

Cordialement.

 

[Odesta]

Re : Poules pour tournois

Bonjour

Voici un morceau de code, réalisé rapidement. Il ne vous reste plus qu'à adapter les valeurs, et éventuellement gérer les noms des équipes.

Prévoir un tableau des poules de 1à8 sur les cellules C1 à J5

Sub poules()
Dim poule(32)
Dim equipe(32) As Boolean

For i = 1 To 32
    equipe(i) = False
Next


For i = 1 To 32
    'remplir le tableau
    nouvelle_val_trouvee = False
    
    While Not nouvelle_val_trouvee
    aleatoire = Int(Rnd * 32) + 1
    'cherche si equipe présente
    
        If Not equipe(aleatoire) Then
            nouvelle_val_trouvee = True
            valeur_trouvee = aleatoire
            equipe(aleatoire) = True
        End If
    
    Wend
    
    poule(i) = aleatoire

Next

p = 0
For i = 3 To 10
    For j = 2 To 5
        p = p + 1
        Cells(j, i).Value = poule(p)
    Next j
Next i

End Sub

Cordialement
Olivier

 

[Gizmo29]

Re : Poules pour tournois

Merci beaucoup pour cette aide.