retrouver un tirage au sort avec un numero seed

Version imprimable

28/03/2014, 22h29
tiyolx

retrouver un tirage au sort avec un numero seed

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

Une petite fonction

Code:

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

29/03/2014, 01h07
clementmarcotte

Bonjour,

Citation:

Envoyé par tiyolx

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.
29/03/2014, 01h24
mercatog

Par contre Rnd(X) avec X<0 donne un même nombre à chaque fois, en utilisant l'argument X comme valeur initiale
29/03/2014, 22h33
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