Bonjour Gringo,
Content de te lire. Voici une 2e moûture de la macro, plus élaborée et moins encombrante. Elle marche même avec 3 adversaires.
On ne peut plus rien joindre, même des codes, alors, copier-coller.
les signes inf et sup et diff ne passent pas dans les messages, alors je les ai mis en toutes lettres.
Sub Ronde()
' Ronde Macro
' Macro enregistrée le 15/06/06 par Gruick
' Touche de raccourci du clavier: Option+Cmd+r
Range('C1:IV17,A20
65536').ClearContents
der = Range('A1').End(xlDown)
joueurs = Range('A1').End(xlDown).Row
parties = joueurs * (joueurs - 1) * 0.5
'MsgBox 'joueurs = ' & joueurs & Chr$(13) & 'parties = ' & parties & Chr$(13) & 'pas = ' & pas
For a = 20 To parties + 19
Cells(a, 1) = 'Match ' & a - 19: Cells(a, 3).Value = 'vs'
Next a
a = 20
For t = 1 To joueurs - 2
For i = 1 To joueurs
'Cells(i, 1).Select 'inutile, juste pour vérif pas à pas
If i Mod joueurs DIFFERENT DE 0 Then Cells(a, 2).Value = Cells(i Mod (joueurs), 1)
If i Mod joueurs = 0 Then Cells(a, 2).Value = Cells(i, 1)
Cells(a, 4).Value = Cells(i Mod (joueurs) + t, 1)
If t = 1 Then
i = i + 1
If i = joueurs Then i = 1
If i PLUS GRAND QUE joueurs And joueurs Mod 2 = 1 Then i = 1
End If
a = a + 1
If t = 1 And Cells(a - 1, 4) = der And joueurs Mod 2 = 1 Then Exit For
If t > 1 And Cells(a - 1, 4) = der Then Exit For
Next i
Next t
End Sub
A bientôt j'espère.
Gruick