Bonjour,
Au vu de ton sujet, j'ai fait une réadaptation d'une fonction de tirage que j'ai dans mon stock (tu la trouveras en module1), pour la faire fonctionner avec une proc. destinée à servir ton tableau :
Sub TirAléatoires()
Dim tbl, n%, m%, i%, dln%
With ActiveSheet
.Range("A1").CurrentRegion.Offset(, 2).Resize(, 8).ClearContents
dln = .Range("A" & .Rows.Count).End(xlUp).Row
For i = 1 To dln
m = .Cells(i, 1): n = .Cells(i, 2)
tbl = TIRAGE(n, m, True)
.Cells(i, 3).Resize(, m).Value = tbl
Next i
End With
End Sub
NB- la fonction était destinée à une utilisation en feuille de calcul, et cette utilisation demeure valide. Elle s'utilise avec 2 arguments :
=TIRAGE(nb de valeurs [1 à nb] parmi lesquelles tirer, nb de valeurs à tirer)
après sélection d'une plage (en ligne ou en colonne) dont le nombre de cellules correspond au nombre de valeurs à tirer.
Validation matriciellel (Ctrl+Maj+Entrée).
Les tirages sont sans doublons.
Bouton Test Tir. aléat. pour tester.
Cordialement.