Discussion :

[alexis0624]

Bonjour j'aimerais générer une liste de nombres aléatoires qui est variable (nombre de participants)
peut-on modifier ce code : exemple en F1 : (36) cela me génèrerait une liste de nombres aléatoires de 1 à 36.
voici le code que j'ai emprunté à SilkyRoad:

merci à vous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Test()
    GenereSerieAleatoireSansDoublons 25, Range("B1")
End Sub
 
 
Sub GenereSerieAleatoireSansDoublons(NbValeurs As Integer, Cell As Range)
    Dim Tableau() As Integer, TabNumLignes() As Integer
    Dim i As Integer, k As Integer
 
    ReDim Tableau(NbValeurs)
    ReDim TabNumLignes(NbValeurs)
 
    For i = 1 To NbValeurs
        TabNumLignes(i) = i
        Tableau(i) = i
    Next
 
    'Initialise le générateur de nombres aléatoires
    Randomize
 
    For i = NbValeurs To 1 Step -1
        k = Int((i * Rnd) + 1)
        Cells(Cell.Row + i - 1, Cell.Column) = Tableau(TabNumLignes(k))
        TabNumLignes(k) = TabNumLignes(i)
    Next
 
End Sub

[mfoxy]

Hello,

À première vue et sans tester je dirais qu'il suffit de modifier les paramètres dans l'appel de la sub.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
Sub Test()
GenereSerieAleatoireSansDoublons 36, Range("F1")
End Sub

[alexis0624]

j'ai du mal expliquer ma problématique cest dans le code:
"GenereSerieAleatoireSansDoublons 36, Range("F1")"

c'est le nombre "ici 36" que j'aimerai pouvoir changer, sans devoir revenir dans ma macro a chaque fois.

merci

[Pierre Fauconnier]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

GenereSerieAleatoireSansDoublons Range("F1").Value, Range("B1")