Tableau pour un tournoi de badminton

Bonjour,

Je suis en train de faire un tableau Excel 2007! pour un tournoi de badminton.

J'aimerai créer un tableau avec des nombre aléatoire unique de 1 à n pour constituer des équipes mais je n'arrive pas a remplir convenablement ce tableau.

Soit j'ai des doublon ou des blancs. Je veux aussi donner le nombre de joueur inscrits avant de générer le tableau.

En gros le tournoi se fait en double (2 joueurs contre 2) et les joueurs tire un chiffre aléatoire et le tableau doit constituer les équipes pour permettre à tout le monde de jouer avec tout le monde.

Merci pour toute aide.

359tournoibad.xlsm (24.35 Ko)

Bonsoir,

Une proposition à tester.

Cordialement.

475tournoi-bad.xlsm (38.24 Ko)

Bonjour Zebulon2,

Merci pour cette version, elle est plus complète et mieux présenté que la mienne.

Génial et ça fonction impeccable avec ma version Excel 2007.

Je vais travailler dessus pour la personnaliser à mon club.

Merci encore

Bonsoir,

Une version amendée à tester.

Cordialement

180test-tournoi.xlsm (32.88 Ko)

Bonjour Zébulon2,

Génial j'étais justement en train de voir comment intégrer des parties en simple ! ;-)

je savais qu'il allait me le demander un jour ou l'autre.

Tu m'as devancé et avec un meilleur résultat.

Je te remercie encore d'avoir pris le temps de te pencher sur mon problème.

Cordialement

@Zebulon2,

Je suis en train de tester le fichier et j'ai une erreur lors "d'un nouveau tirage" sur cette formule Vba : Range("C5").Formula = "=IF([@Joueur]<>"""",RAND(),"""")"

erreur excel

Je n'arrive pas à m'en dépêtrer.

Merci pour ton aide

Re,

Je viens de tester sur mon fichier, pas de message d'erreur. Peux tu me faire parvenir le tien ? Sans données confidentielles bien entendu.

Cordialement

C'est sur le tien que j'ai ce problème sans avoir fait de modification.

Mais ma version d'Excel est 2007! est ce ça aurait une incidence ?

Dans la première version de ton fichier cette formule fonctionne bien :

Range("C7").FormulaR1C1 = "=IF(RC[-1]<>"""",RAND(),"""")"

Zebulon2,

J'ai corrigé l'erreur en modifiant la formule de :

Range("C5").Formula = "=IF([@Joueur]<>"""",RAND(),"""")"

en

Range("C5").Formula = "=IF(t_Joueurs[Joueur]<>"""",RAND(),"""")"

et ca fonctionne.

Par contre pour le jeu en simple je n'ai personne en attente alors qu'il y a un joueur seul pour 51 participants.

Je fouine encore un peu et si tu as la solution pour ce dernier problème je suis preneur :-)

Cordialement

re,

Normalement le joueur en surplus devrait se trouver en equipe 2, j'ai solutionné le problème en remplaçant la formule en D11 par

=SI(_Partie="Double";"Equipe 2";"En attente")

Cordialement

Edit:

Fichier mis à jour

59test-tournoi.xlsm (33.21 Ko)

Super ça fonctionne et c'est plus simple.

Merci encore pour ton temps.

Cordialement

Merci pour le retour.

183test-tournoi.xlsm (33.34 Ko)
Rechercher des sujets similaires à "tableau tournoi badminton"