OVH Cloud OVH Cloud

Calendrier de partie

1 réponse
Avatar
Statman
Un nouveau défi ...
Je voudrais créer des combinaisons de parties possibles pour 10 équipes

Par exemple je voudrais que les 10 équipes jouent tous 2 parties contre
chacune des équipes ... ce sont les combinaisons possible qui m'intéressent
par exemple

Team 1 contre Team 2
Team 1 contre Team 3
...
Team 10 contre Team 9

Évidemment une équipe ne peut pas jouer contre elle-même. Il est possible de
le faire manuellement mais dans le cas ou j'ai 100 équipes ... ça peu rendre
fou.

Merci aux braves qui trouverons la solution en VBA ...

1 réponse

Avatar
isabelle
bonjour Statman,

la ligne
If i > y Then
est pour éviter de retrouver dans la liste les doublon de type :
1 visite 20
et
20 visite 1

Sub Macro1()
For i = 1 To 100
For y = 1 To 100
If i > y Then
x = x + 1
Range("A" & x) = i
Range("B" & x) = y
End If
Next
Next
End Sub

isabelle


Un nouveau défi ...
Je voudrais créer des combinaisons de parties possibles pour 10 équipes

Par exemple je voudrais que les 10 équipes jouent tous 2 parties contre
chacune des équipes ... ce sont les combinaisons possible qui m'intéressent
par exemple

Team 1 contre Team 2
Team 1 contre Team 3
...
Team 10 contre Team 9

Évidemment une équipe ne peut pas jouer contre elle-même. Il est possible de
le faire manuellement mais dans le cas ou j'ai 100 équipes ... ça peu rendre
fou.

Merci aux braves qui trouverons la solution en VBA ...