• Initiateur de la discussion Initiateur de la discussion polop
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

polop

XLDnaute Junior
Bonjour à tous
Je viens de récupérer un fichier fait par zaza29 et rectifié par pierrejean à propos de tirage aléatoire entre noms.
Ce que je voudrais c'est me servir du programme mais au lieu de faire des poules de 5 et 4, il me faudrais des poules de 4 et de 3
j'ai regardé la macro mais compris que dalle
Merci pour la réponse
Polop
 
Re : Tirage aléatoire

Bonjour polop

😉 pierrejean

J'ai modifié le fichier (j'ai laissé la possibilité de faire des poules de 5 ou 4)
Pour les tirages en poule de 4 ou 3 la macro est dans le module 2

Bonne soirée
 

Pièces jointes

Re : Tirage aléatoire

Bonjour pierrejean et pierre olivier
Je me suis emballé un peu trop vite pour dire que ça marchait
Répartition des N° par poule de 4 et 3 impeccable
Mais il manque des N° !!!!
Ci-joint un peu d'explications
Polop
 
Re : Tirage aléatoire

Re

Vois si cela va mieux

@ Pierre Olivier
modif:
Code:
Case 2
np4 = Int(nb / 4) - [COLOR=red]1[/COLOR]
np3 = 2

edit : apres 2eme verif

Code:
Select Case reste
Case 0
np3 = 0
Case 1
np4 = Int(nb / 4) - [COLOR=red]2
[/COLOR]np3 = 3
Case 2
np4 = Int(nb / 4) - [COLOR=red]1[/COLOR]
np3 = 2
Case 3
np4 = Int(nb / 4)
np3 = 1
End Select
 

Pièces jointes

Dernière édition:
Re : Tirage aléatoire

Bonjour PierreJean,PierreOlivier et polop,
Je pense que lopol à besoin de ce tirage pour jeux de boules.
çà fonctionne tres bien grase à PierreJean et PierreOlivier.
Mais, il y a tourjours un mais.
Pour ce tirage il faut mettre Nr équipes en B et en colonne C un Nr de Club.
Et dans chaque poule il ne peut y avoir 2 équipes d'un même club
c'est interdit.
Y a t'il une solution?
Personnellement je ne suis pas assez fort en VBA pour le résoudre.
Salutations,Fredy
 
Dernière édition:
Re : Tirage aléatoire

Bonjour Fredy

Le Problème est interessant mais je n'ai pas encore trouvé d'algorithme satisfaisant
Si tu as l'habitude de traiter ,je dirai manuellement ,peux-tu preciser comment tu procedes
dans le genre:
je mets les noms dans des boites differentes pour chaque club et une main innocente tire un nom dans 4 boites pour faire une poule , ensuite ....
 
Re : Tirage aléatoire

Bonjour PierreJean,
Manuellement le tirage est effectué avec des jetons sur lesquels
il y a le Nr équipe(d'inscription 1,2,3 ect....)mais il y a également le Nr Appartenance club. Les jetons sont placé dans les poules et dès que, visuellement un Nr club sur les 4 équipes est identique ont l'échange avec une autre poule.Mais ça prend trop de temps.
j' ai bien une macro qui fait cette protection, mais uniquement 2 par 2 pour concours normal, que j’ai mis à disposition de Spitnolan08 en date du 03/04/08.
En attendant je cherche.
Salutations, Fredy
 
Re : Tirage aléatoire

Re

Une petite avançée (manque de temps ces jours), que je tenterais de perfectionner a partir de lundi ou j'aurais un peu plus de 'loisirs'
Seul le 4/3 est traité et il se contente de ne pas prendre 2 clubs identiques dans les poules
l'emplacement est laissé vide et les non retenus colorés en rouge

Ps: je n'ai pas pu faire beaucoup de tests
 

Pièces jointes

Re : Tirage aléatoire

Bonsoir PierreJean,
Pour info, L'appartenance club n'a pas besoin d'être affichée ni dans la colonne D
ni dans les poules.Il faut simplement la certitude qu'il n'y a pas de doulons dans une poule.
Je te remercie pour l'intérês que tu me porte pour résoudre ce problême et je pense que pas mal de colègue, amateur de petanque, suie le fil.
Salutations et merci, Fredy
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
989
  • Question Question
Microsoft 365 tournoi
Réponses
2
Affichages
692
Réponses
15
Affichages
2 K
  • Question Question
Microsoft 365 planning 5*8
Réponses
19
Affichages
870
Retour