Tirage au sort sans doublons

Bonjour

Ce que je voudrais avoir comme résultat ,

un tirage au sort sans doublon selon un nombre(variable) défini dans une cellule, réparti en 4 groupes , exemple 4 groupes de 15

Est ce possible je vous remercie

14test-tirage.xlsm (9.15 Ko)

bonjour Joco7915,

Sub Tirage()
     Dim N, aOut, aA, i
     N = Range("C3").Value                   'nombre
     aA = Evaluate(Replace("transpose(row(offset(a1,,,#,)))", "#", N))     'séquence de 1 à N
     'aA = WorksheetFunction.Sequence(1, N) 'n'existe pas encore en 2019 ????
     ReDim aOut(1 To WorksheetFunction.RoundUp(N / 4, 0), 1 To 4)     'matrice de x lignes * 4 colonnes

     For i = 1 To N
          r = Application.RandBetween(i, N)
          x = aA(r)
          aA(r) = aA(i)
          aA(i) = x
          aOut((i - 1) \ 4 + 1, ((i - 1) Mod 4) + 1) = "Nom_" & Format(x, "00")
     Next

     Range("F4").Resize(UBound(aOut), UBound(aOut, 2)).Value = aOut
End Sub

Bonjour

Exactement mes besoins

Merci et bonne journée

Crdlt

Rechercher des sujets similaires à "tirage sort doublons"