Discussion :

[Gregmds]

bonjour à toutes et tous,

je me présente a vous aujourd'hui nouveau sur cette page...

J'ai réaliser dans le cadre de mes fonctions "Moniteur de sport pénitentiaire" un logiciel tournoi sous Excel, joint ci-dessous.

Cependant je viens vers vous car je n'arrive pas a le finaliser.TOURNOI INDIVIDUEL.xlsm

En effet, je souhaiterai qu'a partir de la feuille "tirage au sort" dès que j'appuie sur 'tirage au sort aléatoire' de chaque groupe;(a/b/c/d/e/f) celui-ci obtienne sa ou ses poules dupliquées a partir des feuilles poules créés selon le nombre de participants présent.
(le Maximum étant de 32 participants par groupe).
le nombre de participants étant aléatoire; je cale et j'aurais besoin de votre aide précieuse...

merci a vous
cordialement
Grégory

[EricDgn]

Bonjour,

Une façon de faire:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Meler(sC As String)
    '--- sC = adresse de la cellule en coin supérieur gauche. Exemple: B3
    Dim sNom As String, sPrn As String, sEcrou As String, sPresent As String
    Dim kPremL As Long, kDernL As Long, kL As Long, kC As Long
    Dim rA As Range, rB As Range, k As Long
    Set rA = Range(sC)
    rA.Select
    kPremL = rA.Row              '--- première ligne
    If rA.Offset(1, 0) = "" Then
        MsgBox "Annulé: pas de 2e joueur.", vbInformation, "Annulé"
        Exit Sub
    End If
    kDernL = rA.End(xlDown).Row  '--- dernière ligne
    kC = rA.Column               '--- colonne
    Randomize
    For kL = kPremL To kDernL
        '--- charge ligne en cours
        Set rA = Cells(kL, kC)
        sNom = rA
        sPrn = rA.Offset(0, 1)
        sEcrou = rA.Offset(0, 2)
        sPresent = rA.Offset(0, 3)
        '--- tire au sort n° ligne entre kPremL et kDernL
        k = WorksheetFunction.RandBetween(kPremL, kDernL)
        '--- tranfère cette ligne k dans celle en cours
        Set rB = Cells(k, kC)
        rA = rB
        rA.Offset(0, 1) = rB.Offset(0, 1)
        rA.Offset(0, 2) = rB.Offset(0, 2)
        rA.Offset(0, 3) = rB.Offset(0, 3)
        '--- remplit ligne k avec ligne en cours
        rB = sNom
        rB.Offset(0, 1) = sPrn
        rB.Offset(0, 2) = sEcrou
        rB.Offset(0, 3) = sPresent
    Next kL
End Sub

Cordialement.

[Gregmds]

SALUT

Merci pour le tirage au sort aléatoire, cependant reste a savoir comment dupliquer les différentes poules de 3 /4 / 5 joueurs par rapport au nombre de personnes présentent par bâtiment?

exemple feuille tirage au sort
7 sont cochés présente
il faudra alors que une poule de 3 et une poule de 4 (page poule de 3 ; page poule de 4) soit dupliqué automatiquement et que les noms se mettent dans les cases bleu joueurs


bien cordialement
Gégory

[EricDgn]

Quel est exactement le principe à suivre, que faut-il faire s'il y a 8 inscrits, 11 inscrits, 13 inscrits, ... 31, 32 inscrits?
Cordialement.

[Gregmds]

Bonjour
j'ai pas forcement de règle bien précise ....
Cependant l'idée est de facilité les phases finales (style coupe du mon ou d'Europe) soit 16 de finale soit 32 (sachant que l'idée et que tous les participants des groupes aillent en phase finale -->avec statue particulier pour les tètes de séries 1er de chaque poule)

donc je pensais a cette élaboration; si tu la trouves réalisable et ou logique?

3;6;9;12;15;18;21;27 (x) poule de 3joueurs
4;8;16;20;24;28;32 (x) poule de 4 joueurs
5;10;20;25;30 (x)poules de 5 joueurs

7;11;13;14;17;19;22;23;26;29 je pense qu'il faudra combiné les poules de 3;4;5 ?

merci

[EricDgn]

Bonjour,

Les poules servent à faire un classement des joueurs.
Ce classement est ensuite utilisé pour organiser la coupe (16 ou 32 joueurs).

Prenons la situation où il y a 32 inscrits dans chaque groupe (A, B, C, D, E, F).
S'il y a 8 poules de 4 joueurs dans chaque groupe, cela donne 8 "meilleurs joueurs" par groupe.
Ne participent à la coupe que ces 1er:
>> 6 groupes * 8 meilleurs joueurs = 48 joueurs. ... c'est déjà trop pour une coupe à 32 joueurs

Prenons la situation où il y a 16 inscrits dans chaque groupe.
S'il y a 4 poules de 4 joueurs dans chaque groupe, cela donne 4 "1er" et 4 "2e" meilleurs joueurs par groupe.
Ne participent à la coupe que les 1er et 2e:
>> 6 groupes * 8 meilleurs joueurs (1er + 2e) = 48 joueurs ... à nouveau trop pour une coupe 32 joueurs.
Ne participent à la coupe que les 1er:
>> 6 groupes * 4 meilleurs joueurs (1er) = 24 joueurs ... permet d'organiser une coupe 32 (avec 8 "2e" tirés au sort parmi les 24?)

Par principe, est-il admis d'éliminer de la coupe les moins bons joueurs, une partie par tirage au sort (par exemple pour une partie des "2e" afin de descendre de 48 à 32), une autre parce que vraiment trop mal classés (par exemple les 4e, les 3e) ?

Cordialement.