Rejouer une série aléatoire

Bonjour à tous

j'aimerais pouvoir rejouer une série aléatoire, sans avoir à refermer Excel. Ceci peut paraitre idiot comme question, mais c'est super utile quand on débuggue un programme avec des éléments aléatoires à l'intérieur.

Pour l'instant j'ai un code super simple:

Sub testRandom()
    Randomize 
    Dim i As Integer
    For i = 1 To 10
        Range("A1").Offset(i, 0).Value = Rnd
    Next i
End Sub

Je pensais qu'en mettant une graine à Randomize, cela marcherait

Sub testRandom()
    Randomize (123)
    Dim i As Integer
    For i = 1 To 10
        Range("A1").Offset(i, 0).Value = Rnd
    Next i
End Sub

Mais si je lancer deux fois le code, sans relancer Excel ... cela me donne des résultats différents.

Avez-vous une (des) idée(s)

Merci beaucoup

Jeb

Bonjour,

il faut tout lire dans l'aide excel, y compris et surtout les notes :

Note Pour obtenir plusieurs fois les mêmes séries de nombres aléatoires, appelez Rnd avec un argument négatif juste avant d'utiliser Randomize avec un argument numérique.

Rnd -1
Randomize 123

eric

Bonjour Eric

merci pour ta réponse. J'ai du mal m'exprimer ...

J'avais bien lu que Rnd(-1) renvoyait le même nombre sur la suite de la série pseudo aléatoire.

Ce que j'aimerais c'est avoir un vecteur de n nombres aléatoires différents mais que je peux rejouer à chaque test de ma programmation. En effet, j'ai un certain nombre de processus aléatoire dans mon code. Comme je suis en période de construction du code, j'ai besoin de le tester et donc de rejouer la même série aléatoire.

D'autres idées ?

Amicalement

Jeb

et si tu testais avant de dire que ça ne va pas ?

Ou alors oui, tu t'expliques vraiment très mal car j'ai encore compris pareil.

Tu le lances 10 fois et il te sortira 10 fois la même série :

0.797289908

0.020770073

0.70476073

0.526995301

0.625171959

0.073500872

0.187437475

0.406357646

0.254907191

0.630828381

merci Eric

je n'avais pas compris la subtilité du positionnement de tes deux instructions dans ma boucle

Maintenant c'est ok

Merci bcp

Cordialement

JEb