Sur une drôle d'idée de SilkyRoad... Juste pour m'amuser![]()
NB - Pas la solution idéale si un grand nombre de valeurs
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 Sub Test() GenereSerieAleatoireSansDoublons 25, Range("B1") End Sub Sub GenereSerieAleatoireSansDoublons(NbValeurs As Integer, Cell As Range) Dim Tableau As String, i As Integer, j As Integer Tableau = ";" Do While i < NbValeurs j = Int((NbValeurs * Rnd) + 1) If Not Tableau Like "*;" & j & ";*" Then i = i + 1 Cell.Offset(i - 1, 0) = j Tableau = Tableau & j & ";" End If Loop End Sub![]()
Partager