Discussion :

[evx136]

Bonjour,
je dois organiser un tournoi d'echec ou tous les joueur doivent se rencontrer.
Quand le nombre de joueurs est Pair j'ai trouvé un code.
Là ou ça se complique c'est quand le nombre de joueur est Impair, par exemple 9 joueurs puisque un joueur est libre à chaque rotation.
Je joins un fichier avec le code des nombres pair de joueurs.
Merci pour vos idées pour les nombre impairs

[Daniel.C]

Bonjour,

Il me semble que ce n'est pas une question Excel, mais un problème d'organisation.
Si tu donnes à chaque joueur un numéro, de 1 à 9, les joueurs 1 à 8 font une première partie; au deuxième tour, le joueur 9 et les joueurs 1 à 7 jouent le second tour. Au bout de 9 tours, on compte les points.
L'inconvénient est qu'il n'y a pas d'élimination directe et que 9 parties, c'est sans doute très long. Tu peux peut-être faire ces premiers tours en partie flash ppour sélectionner les joueurs (8 ou 4 ou 2 s'affrontant en élimination directe.)
Sinon, expose la disposition de tes données puisque ton classeur a été supprimé.

[evx136]

Bonjour et merci de me lire.
tous les joueurs se rencontrent mais dans un temps délimité. et ils doivent tous se rencontrer.

Ce n'est pas un problème d'organisation mais plutôt de de construction du tableaux des rencontres

[Daniel.C]

Avec le nom des joueurs en A1:A9, essaie :

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
Sub test()
    Dim c As Range, Ligne As Long, Plage As Range, Tabl
    Ligne = 1
    Range([B1], Cells(Rows.Count, 2).End(xlUp)).Resize(, 3).ClearContents
    For i = 0 To 90 Step 9
        [A1:A9].Copy [A10].Offset(i)
    Next i
    i = 0
    For i = 0 To 80 Step 8
        [A1:A8].Copy Cells(Ligne, 2).Resize(8)
        i = i + 1
        Ligne = Ligne + 8
    Next i
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If Cells(i, 1) = Cells(i, 2) Then Rows(i).Delete
    Next i
End Sub