Tirage au sort aléatoire pour la pétanque

[natorp]

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

 

[pierrejean]

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

 

[natorp]

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]

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

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

 

[natorp]

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

 

[pierrejean]

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

Re

Voila
Vois si cela te convient

 

[natorp]

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

Super....!!!! merci beaucoup

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

 

[natorp]

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]

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é

 

[natorp]

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]

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]

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

 

[thierrypattaya]

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]

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]

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