Tirage au sort aléatoire pour la pétanque

natorp

XLDnaute Accro
bonsoir à tous et toutes,

J'ai regardé plusieurs fils, mais je n'ai pas trouvé ce que je cherche
A partir d'une liste (colonne A) créer de façon aléatoire les doublettes d'un tournoi de pétanque en évitant les doublons et d'associer 2 femmes ensemble (critères en colonne B)

j'ai joins un fichier pour travailler, j'ai bien vu qu'il existe une fonction ALEA mais je ne sais pas comment m'en servir... et si cela est la bonne piste...

merci de votre aide et attention, cordialement, Gérard
 

Fichiers joints

pierrejean

XLDnaute Barbatruc
Re : Tirage au sort aléatoire pour la pétanque

bonjour patron

vois si cela te convient

Edit: Attention quand même : si tu mets plus de femmes que d'hommes il n'y aura pas de resultat
 

Fichiers joints

Dernière édition:

natorp

XLDnaute Accro
Re : Tirage au sort aléatoire pour la pétanque

bjr pierrejean,
je reprends seulement aujourd'hui mes activités et en l'occurence sur le XLD, et je te remercie car j'avais complètement zappé ce fil....
malheureusement, je suis au boulot et mon réseau d'entreprise ne me permet pas la récupération des .zip
est-ce qu'il s'agit d'une formule ? ou d'un code à insérer dans un module ?
peux-tu me le mettre dans le message ?
Je comprends bien ton commentaire, il n'y a jamais plus de femmes que d'hommes...

merci de toute ton attention, cordialement, Gérard
 

natorp

XLDnaute Accro
Re : Tirage au sort aléatoire pour la pétanque

Re bjr Pierrejean

j'ai réussi à me faire envoyer le fichier, j'ai quelques améliorations à y apporter et je câle

J'aimerais plutôt la mise en page sur la feuille 2* ( plus facile pour l'impression )
* j'ai déjà modifier le code pour avoir le résultat en feuille 2
j'ai également enlever l'info F ou M après tirage

Et le tirage ne se fait qu'avec les joueurs ou joueuses présent( e )s
Il s'agit d'une association avec une liste déjà établie où plusieurs membres viennent régulièrement
Code:
Sub tirage()
pasdepot = False
Dim coll As Collection
Set coll = New Collection
tablo = Range("A4:B" & Range("A65536").End(xlUp).Row)
If UBound(tablo, 1) Mod 2 <> 0 Then
 MsgBox ("Il faut un nombre pair de joueurs et joueuses")
 Exit Sub
End If
 While coll.Count < UBound(tablo, 1) / 2
 n = n + 1
 If n = 1000 Then
   pasdepot = True
   Exit Sub
 End If
   Randomize
   x = Int(UBound(tablo, 1) * Rnd + 1)
   y = Int(UBound(tablo, 1) * Rnd + 1)
   'MsgBox (x & " " & y)
   If x <> y And tablo(x, 1) <> "" And tablo(y, 1) <> "" And tablo(x, 2) & tablo(y, 2) <> "FF" Then
   On Error Resume Next
     [COLOR="Red"]coll.Add tablo(x, 1) & " et " & tablo(y, 1), CStr(tablo(x, 1) & " et " & tablo(y, 1))[/COLOR]
     If Err.Number = 0 Then
        tablo(x, 1) = ""
        tablo(y, 1) = ""
     End If
   On Error GoTo 0
   End If
 Wend
[COLOR="Red"]Range("Feuil2!B4:B" & Range("A65536").End(xlUp).Row).ClearContents[/COLOR]
For n = 1 To coll.Count
  [COLOR="red"]Sheets("Feuil2").Cells(n + 4, 2) = coll(n)[/COLOR]
Next n
End Sub
PS : je mets le bon fichier, le code avait été "viré" par le réseau d'entreprise
 

Fichiers joints

Dernière édition:

natorp

XLDnaute Accro
Re : Tirage au sort aléatoire pour la pétanque

bonsoir, un petit up car j'ai corrigé le fichier joint...

merci de votre attention, cordialement
Gérard
 

natorp

XLDnaute Accro
Re : Tirage au sort aléatoire pour la pétanque

Super....!!!! merci beaucoup

comme d'hab.... très efficace....
Au plaisir, Gérard
 

natorp

XLDnaute Accro
Re : Tirage au sort aléatoire pour la pétanque

Un petit up pour demander (à pierrejean, STP) si il est possible d'éviter la formation de doublette identique au tirage précédent.
Hum pas très clair....
exemple :
1er tirage :
A et B contre C et D
E et F contre G et H

2ème tirage :
B et D contre G et A
E et F contre H et C

cela vient de m'arriver....
merci de aide, cordialement, Gérard
 

pierrejean

XLDnaute Barbatruc
Re : Tirage au sort aléatoire pour la pétanque

Re

je te laisse tester cette version (qui commence a avoir des allures d'usine a gaz)
Nb: Les 2 tirages doivent etre réalisés sans que le fichier n'ait été fermé
 

Fichiers joints

natorp

XLDnaute Accro
Re : Tirage au sort aléatoire pour la pétanque

Merci beaucoup,

c'est très sympa, c'est tout à fait ce qui convient
Bon WE....

Gérard
 

clue

XLDnaute Nouveau
Re : Tirage au sort aléatoire pour la pétanque

Salut à tous
J'ai suivi cette discussion et je suis resté sans mots.
Sans faute Pierrejean il doit être un monstre d'habilité.

Peut-être s'il a encore envie et temps pour modifier son formulaire natorp_b_classeur1 selon mes exigences, il serait merveilleux. J’ai essayé mais je me suis aperçu de ma grande ignorance.

Mes exigences : remplacer la « Liste des joueur ou joueuses » avec une liste esistente des « Equipes ». Il s'agit d'associer aux noms des equipes les noms des Club d'appartenance.

De la liste dans la colonne « C » crèe aléatoirement, repartir les participants si obtenu en plusieur listes avec des groupes de 8 equipes dans ces groupes y doive être seulement un participant pour chaque club.
Si on doit refaire complètement le macro j'apprécierais recevoir quelque indication à ce sujet
Je remercie pour l'attention et pour une réponse éventuelle.
Charles
 

Hennebelle

XLDnaute Nouveau
Re : Tirage au sort aléatoire pour la pétanque

Re

je te laisse tester cette version (qui commence a avoir des allures d'usine a gaz)
Nb: Les 2 tirages doivent etre réalisés sans que le fichier n'ait été fermé
Est-il possible de faire 3 tirages en triplettes sans joueurs inactifs, donc parfois doublette-triplette ou doublette-doublette ? Cela nous permettrait de jouer un peu plus vite et d'éviter les râleurs...
J'ai bien essayé de changer la programmation VBA mais pour l'instant, je me plante...
Merci pour votre aide Gil
 
Dernière édition:

thierrypattaya

XLDnaute Nouveau
Re : Tirage au sort aléatoire pour la pétanque

bonjour pierrejean,
je trouve ton programme vraiment super, mais il ne peux faire maxi 32 participants, or j'organise l'été à royan des concours de pétanque mais il y a plus de 32 équipes (voir jusqu'a 128). je ne connais pas assez xl pour faire ce que tu fais. pourriez vous me dire comment faire.
merci d'avance
salutations
thierry
 

pierrejean

XLDnaute Barbatruc
Re : Tirage au sort aléatoire pour la pétanque

Re

Ce fil etant très ancien j'ai de la difficulté à me rememorer les tenants et les aboutissants
Peux-tu creer un fichier exemple avec données anonymes et reprenant les exigences ainsi que la presentation des resultats telle que tu la concois
 

thierrypattaya

XLDnaute Nouveau
Re : Tirage au sort aléatoire pour la pétanque

re bonjour et merci de votre réponse.
voici un graphique que vous aviez fais en piece jointe. il est super, mais serait il possible de le modifier de la facon expliquer dessus. cela ferait un tirage super geniale.
merci encore
salutations
thierry
 

Fichiers joints

thierrypattaya

XLDnaute Nouveau
Re : Tirage au sort aléatoire pour la pétanque

bonjour et merci,

C'est vrai super, mais le seul soucis, c'est que ca ne marche que si toutes les equipes sont presente. il faudrais que le tirage fonctionne meme si j'en ai que 50 par exemple(equipes presentes).
Que le tirage se fasse uniquement sur les personne presente, et là ce srait vraiment impeccable.
Merci encore.
Salutations.
thierry
 

pierrejean

XLDnaute Barbatruc
Re : Tirage au sort aléatoire pour la pétanque

Re

Je t'avais demandé :
Peux-tu creer un fichier exemple avec données anonymes et reprenant les exigences ainsi que la presentation des resultats telle que tu la concois
Ou mentionnes-tu la presence ?
Comment cela se passe-t-il pour 50 participants ? (j'ai à priori exclu ce qui n'etait puissance de 2 (8,16,32,64,128 )) pour avoir les eliminations successives
En confidence: La petanque c'est pas vraiment mon truc !!!
 

Discussions similaires


Haut Bas