Tirage au sort plus

[Olivier_084178]

N'yant pas complètement trouvé mon bonheur dans les sujets précédents, je poste ma demande dont voici les spcifications:
Soit un nombre N d'équipe de 3 joueurs. N pouvant aller de 2 à 100.
Je cherche à ventiler de façon aléatoire les équipiers en trois groupes sans qu'un équipier soit dans la même groupe qu'un des membres de son équipe.
Il y a une solution approchante dans une des discussions mais je n'arrive pas à la modifier pour obtenir le résultat recherché.
exemple
équipe A : a1, a2, a3
équipe B : b1, b2, b3
équipe C : c1, c2, c3
Résultat possible :
Groupe 1 : a1, b2, c3
Groupe 2 : a2, b3, c1
Groupe 4 : a3, b1, c2

 

[julberto]

Re : Tirage au sort plus

Bonjour Olivier,

Voici une solution avec vba.

cordialement.

 

[Olivier_084178]

Re : Tirage au sort plus

Merci Julberto.
C'est bien ce que je cherche à réaliser à un détail près, je n'ai pas forcément 100 équipes. Si j'en ai 20 par exemple, ton dev ne fonctionne pas complètement. Pourrais-tu le modifier pour qu'il fonctionne avec un nombre d'équipe qui va de 2 à 100.
O.

 

[julberto]

Re : Tirage au sort plus

Bonjour Olivier,

Fonctionne quelque soit le nombre d'équipes.
Définir les équipes puis actionner le bouton "Formation des groupes".
N.B. : La plage "A à D" est préalablement triée pour éviter les lignes vides.

​

ton dev ne fonctionne pas

😕 Mon dev ???

cordialement.

 

[Olivier_084178]

Re : Tirage au sort plus

😕
Comprend pas, ça marche 😱
Merci beaucoup

 

[natorp]

Re : Tirage au sort plus

Bjr Olivier et julberto

julberto, je suis très intéressé par ton fichier mais je n'ai qu'excel 2003. peux-tu poster les fichier en xls ?

merci de ton attention, cordialement
Gérard

 

[julberto]

Re : Tirage au sort plus

Bonjour natorp,

Le voici.
.... et pardon pour mon étourderie.

cordialement

 

[natorp]

Re : Tirage au sort plus

Merci beaucoup, y'a pas de mal, mais j'ai encore une requête...

mon réseau d'entreprise me "schoote" le code vba, pourriez-vous faire une réponse avec une copie du code vba de la macro ?

merci de votre bienveillance, cordialement, Gérard

 

[julberto]

Re : Tirage au sort plus

reBonjour natorp,

Le voici.

Sub FaireNouveauxGroupes()
Dim a%(3), i%, j%, club%

  '......... élimine les lignes vides le cas échéant
Worksheets("Feuil1").Range("A2:D1000").Sort Range("A1"), 1
  '.........  définit le nombre de groupes + 1
club = Worksheets("Feuil1").Range("A1").End(xlDown).Row
If club < 4 Then
    MsgBox "Il faut un minimum de 3 équipes constituées.", vbCritical
    End
End If

Randomize
  '......... "a" trois nombres aléatoires différents
i = 1
Do
  a(i) = Int((club - 2 + 1) * Rnd + 2)
  i = i + 1
  If i = 4 Then i = 1
Loop Until a(1) <> a(2) And a(1) <> a(3) And a(2) <> a(3) And i = 1

  '......... Formation aléatoire des nouvelles équipes
With Worksheets("Feuil1")
  For i = 2 To club
    .Cells(i, 6) = "Groupe " & Format(i - 1, "00")
    .Cells(i, 7) = .Cells(a(1), 2)
    .Cells(i, 8) = .Cells(a(2), 3)
    .Cells(i, 9) = .Cells(a(3), 4)
    For j = 1 To 3: a(j) = IIf(a(j) = club, 2, a(j) + 1): Next
 '.........
  Next i
End With

End Sub

cordialement

 

[natorp]

Re : Tirage au sort plus

Bjr julberto

Super, merci beaucoup.... bonne journée

Gérard