Discussion :

[tiyolx]

Bonjour à tous,

Je fais appel à vos connaissance car je ne trouve pas de solution à mon problème.

Objectif : créer une liste aléatoire compris entre 1 et 9 mais je veux avec un numéro seed toujours retrouver la même liste

Jusqu'ici j'essaie avec les fonction randomize et rnd mais je fais peut être fausse route.
Si vous avez une autre idéee je suis prenneur.

Je travaille sous Excel dans l'éditeur VB pour Applications

Exemple de résultat :

premier tirage avec un seed de 15987 = 2, 4, 9, 1, 3, 5, 8, 6, 7
deuxième tirage avec un seed de 459 = 1, 4, 9, 8, 3, 5, 2, 6, 7
troisième tirage avec un seed de 459 = 1, 4, 9, 8, 3, 5, 2, 6, 7
quatrième tirage avec un seed de 15987 = 2, 4, 9, 1, 3, 5, 8, 6, 7

Merci de votre aide à tous

[mercatog]

Une petite fonction

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
Function PRND(ByVal Seed As Integer) As String
Dim i As Byte, j As Byte, k As Byte
Dim S As String
Dim Tb
 
Tb = Split("1 2 3 4 5 6 7 8 9")
For i = 0 To 8
    Do
        j = Int(8 * Rnd(-Seed / (i + 1))) + 1
        k = k + 1
    Loop Until i <> j Or k = 9
    If k = 1 Then
        S = Tb(i)
        Tb(i) = Tb(j)
        Tb(j) = S
    End If
    k = 0
Next i
 
PRND = Join(Tb, ",")
End Function

[clementmarcotte]

Bonjour,

Bonjour à tous,

Objectif : créer une liste aléatoire compris entre 1 et 9 mais je veux avec un numéro seed toujours retrouver la même liste

Jusqu'ici j'essaie avec les fonction randomize
Merci de votre aide à tous

Dans ce cas-précis, oublie Randomize. Randomize a justement pour mission d'éviter au maximum la répétition de séquences identiques.

[mercatog]

Par contre Rnd(X) avec X<0 donne un même nombre à chaque fois, en utilisant l'argument X comme valeur initiale

[tiyolx]

Merci ça fonctionne du feu de dieu LOL.

J'avais pas compris qui fallait mettre des chiffres négatif car j'avais essayé mais avec des chiffres positifs.

Bon WEEKEND