Discussion :

[ouskel'n'or]

Sur une drôle d'idée de SilkyRoad... Juste pour m'amuser

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

NB - Pas la solution idéale si un grand nombre de valeurs

[Mytå_Qc]

Salut ouskel'n'or et le forum

On peux aussi passer par une collection et gestion d'erreur

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
Sub Nbre()
Dim Tablo As New Collection
Dim I As Byte
Dim Valeur As Byte
 
On Error GoTo GestionErreur
 
    Do While I < 25
        Valeur = Int(25 * Rnd) + 1
        Tablo.Add Valeur, CStr(Valeur)
        I = I + 1
    Loop
      For I = 1 To 25
        Cells(I, 1) = Tablo(I)
      Next I
    Exit Sub
 
GestionErreur:
  I = I - 1
  Resume Next
 
End Sub

Question rapidité sur les deux macros je n'ai pas testé....

Mytå_Qc

[ouskel'n'or]

Hello Mytå_Qc
Oui, et il y a aussi la solution plus élégante que la mienne de SilkyRoad dans la FAQ avec deux boucles For et un tableau
(Je n'avais rien à faire et les forums que je fréquente étaient déserts )