Tirage au sort

[Pati]

Bonjour à tous.

Dans le cadre de l'organisation d'un petit tournoi FIFA (le jeu vidéo), je souhaite organiser un tirage au sort.

J'ai 20 participants et 50 équipes. J'aimerai que chaque participant se voit aléatoirement allouer une de ces 50 équipes (il restera donc 30 équipes non "prises").

Étant loin d'être un spécialiste du tableur je m'en remets donc à votre aide.

En vous remerciant par avance.

Cordialement.

Pati

 

[suistrop]

Re : Tirage au sort

salut,

un petit exemple en VBA

si tu met tes equipes sur la colonne B et tes noms de joueurs sur la colonnes C

avec ce code les equipes se classent aléatoirement sur la colonne B et donc les 20 joueurs recoivent des equipe tiré aléatoirement.

Sub test()
For i = 1 To 50
Cells(i, 1) = Rnd(1)
Next i
Columns("A:B").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Columns("A:A").Delete Shift:=xlToLeft
End Sub

le pricince du code est le suivant sur la colonne A on va mettre des chiffres tiré aléatoirement puis on les classe dans l ordre croissant.

 

[Pati]

Re : Tirage au sort

Salut.

Merci pour ta réponse.

Cells(i, 1) = Rnd(1)

Pour cette ligne, cela me répond ceci :

Erreur d'exécution BASIC.
Sous-procédure ou procédure de fonction non définie.

Pati

 

[suistrop]

Re : Tirage au sort

salut,
je ne sais pas d ou vient cette erreur,
t as qu a tester ce fichier ...

 

[Pati]

Re : Tirage au sort

Ok, merci beaucoup, cela a l'air de fonctionner. 🙂

Pour déplacer le cadre-bouton "Go", sur quelle variable faut-il influer ? Il empiète sur la colonne C là.

Merci.

Pati.

 

[suistrop]

Re : Tirage au sort

Ok, merci beaucoup, cela a l'air de fonctionner. 🙂

Pour déplacer le cadre-bouton "Go", sur quelle variable faut-il influer ? Il empiète sur la colonne C là.

Merci.

Pati.

tant mieux si ca marche !
tu click droit dessus et avec une selction sur les bords tu le déplaces a la souris ... cela demande un peu d exercice au début !!

 

[Pati]

Re : Tirage au sort

Ok, merci pour ton aide. 🙂

@++ 😉

 

[Cousinhub]

Re : Tirage au sort

Bonsoir,

une autre alternative...

Avec ce code, tu évites les doublons, et tu alloues aux participants une équipe
Tu peux faire plusieurs tirages, et chaque participant ne pourra pas rejouer contre une même équipe

Le code :

Sub tirag()
Dim MesNumeros As Object, X As Byte, Num As Byte
Dim DerCol As Byte
Set MesNumeros = CreateObject("Scripting.Dictionary")
DerCol = IIf([IV2].End(xlToLeft).Column = 1, 2, [IV2].End(xlToLeft).Column + 1)
Do While X < 20
    Randomize (Timer)
    Num = Int((50) * Rnd + 2)
    If Not MesNumeros.Exists(Num) And Application.CountIf(Range(Cells(X + 2, 2), Cells(X + 2, DerCol)), Num) = 0 Then
        X = X + 1
        MesNumeros.Add Num, Num
    End If
Loop
Cells(2, DerCol).Resize(MesNumeros.Count, 1).Value = Application.Transpose(MesNumeros.items)
End Sub

le fichier :