Tirage aléatoire

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
 

polop

XLDnaute Junior
Re : Tirage aléatoire

Je viens de m'apercevoir que j'ai oublié de joindre le fichier concerné
Voilà chose faite
Polop
 

Pièces jointes

  • Feuille_inscription.xls
    38 KB · Affichages: 139
  • Feuille_inscription.xls
    38 KB · Affichages: 138
  • Feuille_inscription.xls
    38 KB · Affichages: 138

bqtr

XLDnaute Accro
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

  • Feuille_inscription.zip
    15.9 KB · Affichages: 94
  • Feuille_inscription.zip
    15.9 KB · Affichages: 97
  • Feuille_inscription.zip
    15.9 KB · Affichages: 100

polop

XLDnaute Junior
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
 

pierrejean

XLDnaute Barbatruc
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

  • Feuille_inscription1.zip
    15.5 KB · Affichages: 65
Dernière édition:

Laurent Fredy

XLDnaute Nouveau
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:

pierrejean

XLDnaute Barbatruc
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 ....
 

Laurent Fredy

XLDnaute Nouveau
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
 

pierrejean

XLDnaute Barbatruc
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

  • Feuille_inscription2.zip
    20.7 KB · Affichages: 92

Laurent Fredy

XLDnaute Nouveau
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
 

Membres actuellement en ligne

Statistiques des forums

Discussions
312 229
Messages
2 086 426
Membres
103 206
dernier inscrit
diambote