XL 2019 Tirage aléatoire en poule de 5 parmi 10 équipes

Darkness1412

XLDnaute Nouveau
Bonjour tout le monde,

Je cherche à créer un tirage aléatoire parmi 10 équipes pour créer deux poules de 5 équipes.

Voici ma formule mais cela me génère des doublons

=INDEX(B$15:B$24;ALEA.ENTRE.BORNES(1;10))

Avez-vous une idée?

D'avance merci
 
Solution
Bonjour.
Plusieurs sortes de tirages aléatoires dans ce classeur.

Vous pouvez aussi utiliser cette fonction perso, à valider par Ctrl+Maj+Entrée :
VB:
Function ListeAl(Optional ByVal Graine) As Variant()
   Dim TAl() As Long, P As Long, R As Long, X As Long, L As Long, C As Long
   With Application.Caller
      ReDim TAl(1 To .Count), TRés(1 To .Rows.Count, 1 To .Columns.Count)
      End With
   For P = 1 To UBound(TAl): TAl(P) = P: Next P
   If IsMissing(Graine) Then Randomize Else Rnd -1: Randomize Graine
   For P = UBound(TAl) To 2 Step -1
      R = Int(Rnd * P) + 1: X = TAl(R): TAl(R) = TAl(P): TAl(P) = X
      Next P
   P = 0
   For L = 1 To UBound(TRés, 1): For C = 1 To UBound(TRés, 2)
      P = P + 1: TRés(L, C) = TAl(P): Next C...

Dranreb

XLDnaute Barbatruc
Bonjour.
Plusieurs sortes de tirages aléatoires dans ce classeur.

Vous pouvez aussi utiliser cette fonction perso, à valider par Ctrl+Maj+Entrée :
VB:
Function ListeAl(Optional ByVal Graine) As Variant()
   Dim TAl() As Long, P As Long, R As Long, X As Long, L As Long, C As Long
   With Application.Caller
      ReDim TAl(1 To .Count), TRés(1 To .Rows.Count, 1 To .Columns.Count)
      End With
   For P = 1 To UBound(TAl): TAl(P) = P: Next P
   If IsMissing(Graine) Then Randomize Else Rnd -1: Randomize Graine
   For P = UBound(TAl) To 2 Step -1
      R = Int(Rnd * P) + 1: X = TAl(R): TAl(R) = TAl(P): TAl(P) = X
      Next P
   P = 0
   For L = 1 To UBound(TRés, 1): For C = 1 To UBound(TRés, 2)
      P = P + 1: TRés(L, C) = TAl(P): Next C, L
   ListeAl = TRés
   End Function
 

Pièces jointes

  • ListeAléat.xlsm
    207.5 KB · Affichages: 19

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 789
Membres
101 817
dernier inscrit
carvajal