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
 

Pièces jointes

  • Classeur1.xls
    16.5 KB · Affichages: 1 486
  • Classeur1.xls
    16.5 KB · Affichages: 1 483
  • Classeur1.xls
    16.5 KB · Affichages: 1 472

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
 

Pièces jointes

  • natorp_b_Classeur1.zip
    15 KB · Affichages: 1 302
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
 

Pièces jointes

  • pétanque.zip
    15 KB · Affichages: 793
  • pétanque.zip
    15 KB · Affichages: 787
  • pétanque.zip
    15 KB · Affichages: 818
Dernière édition:

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é
 

Pièces jointes

  • pétanque.zip
    16.5 KB · Affichages: 928
  • pétanque.zip
    16.5 KB · Affichages: 930
  • pétanque.zip
    16.5 KB · Affichages: 1 008

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
 

Pièces jointes

  • natorp_b_Classeur1.xls
    123.5 KB · Affichages: 675
  • natorp_b_Classeur1.xls
    123.5 KB · Affichages: 754
  • natorp_b_Classeur1.xls
    123.5 KB · Affichages: 769

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 926
Membres
101 841
dernier inscrit
ferid87