Tirage au sort plus

J

julberto

XLDnaute Occasionnel

• 26 Mars 2011

• #2

Re : Tirage au sort plus

Bonjour Olivier,

Voici une solution avec vba.

cordialement.

 

Pièces jointes

• équipes_aléatoires.xlsm

  24.2 KB · Affichages: 91
• équipes_aléatoires.xlsm

  24.2 KB · Affichages: 91
• équipes_aléatoires.xlsm

  24.2 KB · Affichages: 92

Vote positif 0 Vote négatif

Olivier_084178

XLDnaute Nouveau

• 27 Mars 2011

• #3

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.

 

Vote positif 0 Vote négatif

J

julberto

XLDnaute Occasionnel

• 28 Mars 2011

• #4

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

Cliquez pour agrandir...

😕 Mon dev ???

cordialement.

 

Pièces jointes

• équipes_aléatoires.xlsm

  23.3 KB · Affichages: 54
• équipes_aléatoires.xlsm

  23.3 KB · Affichages: 61
• équipes_aléatoires.xlsm

  23.3 KB · Affichages: 62

Vote positif 0 Vote négatif

Olivier_084178

XLDnaute Nouveau

• 28 Mars 2011

• #5

Re : Tirage au sort plus

😕
Comprend pas, ça marche 😱
Merci beaucoup

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 30 Mars 2011

• #6

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

 

Vote positif 0 Vote négatif

J

julberto

XLDnaute Occasionnel

• 30 Mars 2011

• #7

Re : Tirage au sort plus

Bonjour natorp,

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

cordialement

 

Pièces jointes

• équipes_aléatoires.xls

  53 KB · Affichages: 47

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 30 Mars 2011

• #8

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

 

Vote positif 0 Vote négatif

J

julberto

XLDnaute Occasionnel

• 30 Mars 2011

• #9

Re : Tirage au sort plus

reBonjour natorp,

Le voici.

Code:

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

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 31 Mars 2011

• #10

Re : Tirage au sort plus

Bjr julberto

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

Gérard

 

Vote positif 0 Vote négatif