Elaborer un calendrier sportif
Salut le forum,
je suis actuellement devant mon plus gros défi.
Je dois élaborer un calendrier des parties d'une saison de touch-football.
Ce que j'aimerais, c'est pouvoir sortir la liste de toutes les parties devant être jouées.
J'ai de 1 à 8 divisions de 4 à 10 équipes. À partir du moment où le nombre de divisions et d'équipes par division est pensé, je crée les divisions.
Le calendrier est déterminé en fonction de certains critères. D'abord, est-ce que les équipes jouent des parties interdivisions. Si oui, les divisions sont alors groupées par paires. Division 1 avec division 2, division 3 avec division 4, etc.
S'il y a un nombre impair de divisions, cette option ne peut être envisagée.
Ensuite, combien de parties jouent chacune des équipes contre leur division et contre l'autre division.
Ces 3 critères sont prélevés grâce à un USF.
Une fois ces données connues, le calendrier s'élabore.
Si une équipe joue deux parties contre une autre équipe de sa division, le résultat dans le calendrier peut s'afficher :
Equipe 1 vs Equipe 2
Equipe 1 vs Equipe 2
Réglant ainsi les parties entre ces deux équipes. Elles n'ont pas besoin d'être une fois visiteur et l'autre receveur.
Je joins le fichier exemple : https://www.excel-pratique.com/~files/doc/Zqr5RBook124.xls
Merci pour votre aide.
Veux-tu passer par du VBA ou que par formule ?
Par simple formule c'est possible car purement mathématique. Le nombre de possibilité étant limité vu le nombre d'équipe et de division maximum. Ton fichier comportera autant de combinaison que possible.
Mais maintenant veux-tu un tableau allant du premier match à la finale qui se remplisse tout seul en fonction des résultats obtenus soit avec le nombre de but, soit avec match gagné, perdu, nul à domicile ou non,...
Je peux te réaliser ce genre de programme mais donne moi un cahier des charges.
Car au niveau formule c'est de la pure logique, il ne reste plus que l'esthétique qui lui dépend d'un incontrôlable facteur humain.
Salut Eric2008.
Je ne souhaite que l'élaboration du calendrier par macro idéalement. Le reste étant déjà créé et automatisé.
Merci pour ton intérêt.
J'ai simplifié le problème. J'ai ramené le tout à deux divisions. Pour plus de divisions, je n'aurai qu'à répéter le processus.
https://www.excel-pratique.com/~files/doc/Copy_of_Zqr5RBook124.xls
Salut le forum,
on m'a donné ce code comme début de solution mais il ne fonctionne pas.
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, k As Integer, h As Integer
Const NbRepete As Integer = 2
Const NbVal As Integer = 6
For i = 1 To NbVal - 1
For j = i + 1 To NbVal
For k = 1 To NbRepete
Resultat(h + k) = Donnees(i) & Donnees(j)
Next k
h = h + NbRepete
Next j
Next i
End SubLe bug se fait au niveau de la ligne :
Resultat(h + k) = Donnees(i) & Donnees(j)Si je ne me trompes pas, il s'agirait ici de variables à définir non? Cependant, je n'y arrive pas.
Merci pour votre aide.
Salut le forum
Eric, pas vu de CommandButton1 sur ton fichier
A te relire
Mytå
Salut Mytå,
pourtant, il est là : dans les colonnes I, J et K.
Cependant, il ouvre actuellement un USF. Pour le code, je ne l'ai pas intégré puisque, soit il ne fonctionne pas et c'est une mauvaise piste, soit je ne sais pas l'adapter.
Salut le forum
Eric, tu devrais revoir ton fichier
J'ai comme équipes ceci et je veux cela (Oublie le UserForm)
Moi plus je regarde les fichiers, moins je comprends.
car la 1,2 ou 3 saisies, le UserForm du l'adaptera après.
Mytå
Voilà, j'ai refait mes devoirs en espérant que ce sera plus clair.
https://www.excel-pratique.com/~files/doc/sGdP3Copy_of_Copy_of_Zqr5RBook124.xls
Re le forum
Eric, ca devait être du à la fatigue hier, voilà ton fichier
Mytå
Attention une petite correction sur la macro du Userform
- Tablo = Range("A2:J11")
Salut Mytå,
je suis tombé de ma chaise en voyant le résultat. Sincèrement, BRAVO!
J'en suis encore bouche-bée.
Cependant, je n'avais pas prévu que toutes les divisions pouvaient s'affronter.
D'abord, est-ce que les équipes jouent des parties interdivisions. Si oui, les divisions sont alors groupées par paires. Division 1 avec division 2, division 3 avec division 4, etc.
Les divisions sont groupées par paire de 2. Est-il possible d'inclure une option pour planifier quelle division affronte quelle division. En maintenant ton fichier intacte avec cette option supplémentaire, j'aurais pleine lattitude.
Merci encore pour ton aide.
Re le forum
Attention de ne pas retomber en bas de ta chaise
Eric les divisions sont regroupées par paires.
Division 1-2, 3-4, 5-6, 7-8 et 9-10
Pour afficher les interdivisions en chiffre
- .Cells(Ligne, 1) = "InterDivision " & (Division + 1) / 2
Mytå
Bon voilà!
J'ai eu beau tester son tous les angles. Après deux jours à analyser ce programme pour le comprendre (et je ne le comprends pas encore à 100%), je peux dire qu'il est parfaitement fonctionnel selon mes attentes. Il ne reste qu'à le tranférer dans le fichier qui doit le contenir.
Merci beaucoup Mytå.
Salut le forum
Une version 3
Avec récupération des divisions et des inter-divisions.
Mytå