Discussion :

[Jeoffrey54]

Bonjour à tous

Je dois m'occuper de gérer un tournoi de poker. Il y aura 40 participants, répartis sur 10 tables environ. Toutes les 20 minutes, les joueurs seront placés aléatoirement sur l'un des 10 tables.

Je cherche à développer un petit programme en VBA qui puisse faire ceci.

A partir du moment ou je l'éxécute, il va me ranger dans Excel :

Table n° : 2
joueur 2
joueur 34
joueur 12
joueur 19

Table n° : 3
joueur 23
joueur 4
joueur 40
joueur 1

Je sais comment ranger des valeurs dans des cellules sous Excel, mais pas comment attribuer 4 ou 5 nombres aléatoires sur une table, et ensuite en attribuer d'autres sur d'autres tables (de poker hein ^^), mais que ceux qui ne soit pas réutilisés.

Comment faire ? :s

Bonne journée à tous.

[ucfoutu]

Bonjour,

Ce qui revient tout simplement à tirer aléatoirement ert sans doublons le nombre de numéros nécessaires puis de les répartir 4 par 4, dans l'odre du tirage !

Pour ce qui est du tirage aléatoire et sans doublons, j'ai donné très récemment une méthode et un code... (une petite recherche, donc)

[wilfried_42]

Bonjour

Voici un fichier, avec 40 joueurs, 10 tables (4 par table)

Choix de joueur aleatoirement, Choix de la table aleatoirement

[Jeoffrey54]

Merci ucfoutu, je vais faire une recherche

Alors là wilfried_42, merci Je vais maintenant l'adapter pour voir si je peux ajouter 10 joueurs et faire sur 5 tables !

[ucfoutu]

Merci ucfoutu, je vais faire une recherche

Alors là wilfried_42, merci Je vais maintenant l'adapter pour voir si je peux ajouter 10 joueurs et faire sur 5 tables !

Euh ...

40 + 10 = 50
50/5 = 10 joueurs par table ...

Explique...

[Jeoffrey54]

Je parlais de modifier le script VBA que m'a donné wilfried_42 de façon à ce qu'il y ait pas 40 joueurs mais 50 !

A moins que ca ne le fasse tout seul si ej rajoute les 10 joueurs sur Excel ?

Par contre wilfried, je ne parviens pas à faire ce que je souhaite, c'est à dire modifier ton code VBA de façon a ce qu'il mette 5 joueurs par table et non 4.

j'ai un plantage quand j'éxécute...

[wilfried_42]

re:

Voici la Macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Bouton1_QuandClic()
    Dim num As Integer, ligne As Integer, colonne As Integer, drapeau As Boolean
    Range("E2:IV100").ClearContents
    Range("B:B").ClearContents
    While Range("C2") = False
        num = Int(Rnd * Range("D4")) + 1
        If Range("B" & num) = False Then
            drapeau = False
            While drapeau = False
                ligne = Int(Rnd * (Range("D4") / Range("D5"))) + 1
                colonne = Int(Rnd * Range("D5")) + 1
                If Cells(1 + ligne, 4 + colonne) = "" Then
                    drapeau = True
                    Cells(1 + ligne, 4 + colonne) = Cells(num, 1)
                    Cells(num, 2) = True
                End If
            Wend
        End If
    Wend
End Sub

Ton fichier en retour

Il te suffit d'ajouter des tables ou d'en supprimer (Cellules jaunes) et d'ajouter des noms et normalement ca roule

[Jeoffrey54]

Merci Wilfried, je viens de tester cette maco, et elle a l'air de marcher.

Par contre, j'ai eu un bug lorsque j'ai mis 10 tables et 50 joueurs, Excel ne réponds plus :S