Essayez ce petit bout de code utilisant Rnd :
Sub Alea()
For A = 1 To 20
Cells(A, 1) = Rnd
Next
End Sub
La fonction Rnd est censée renvoyer un nombre aléatoire. Mais je peux vous
dire que les nombres "aléatoires" que vous avez trouvés sont (du moins sur
XP) :
0,70554751
0,53342402
0,57951862
0,28956246
0,30194801
0,7747401
0,01401764
0,76072359
0,81449002
0,7090379
Ma question est donc : comment générer des nombres aléatoires sans partir
toujours du même nombre de départ (ici 0,7055...) ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-François Aubert
Salut Nicolas, Je ne dispose pas de XP, mais as-tu regardé l'aide VBA de Rnd ? Sous Excel 2000, il y a plein de truc à savoir sur cette fonction. -- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Nicolas B." a écrit dans le message de news:
Bonjour,
Essayez ce petit bout de code utilisant Rnd : Sub Alea() For A = 1 To 20 Cells(A, 1) = Rnd Next End Sub
La fonction Rnd est censée renvoyer un nombre aléatoire. Mais je peux vous dire que les nombres "aléatoires" que vous avez trouvés sont (du moins sur XP) : 0,70554751 0,53342402 0,57951862 0,28956246 0,30194801 0,7747401 0,01401764 0,76072359 0,81449002 0,7090379
Ma question est donc : comment générer des nombres aléatoires sans partir toujours du même nombre de départ (ici 0,7055...) ?
-- Nicolas B.
Salut Nicolas,
Je ne dispose pas de XP, mais as-tu regardé l'aide VBA de Rnd ?
Sous Excel 2000, il y a plein de truc à savoir sur cette fonction.
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Nicolas B." <nicolas.bruot@laposte.net> a écrit dans le message de
news:un6qhY4UDHA.2248@TK2MSFTNGP10.phx.gbl...
Bonjour,
Essayez ce petit bout de code utilisant Rnd :
Sub Alea()
For A = 1 To 20
Cells(A, 1) = Rnd
Next
End Sub
La fonction Rnd est censée renvoyer un nombre aléatoire. Mais je peux vous
dire que les nombres "aléatoires" que vous avez trouvés sont (du moins sur
XP) :
0,70554751
0,53342402
0,57951862
0,28956246
0,30194801
0,7747401
0,01401764
0,76072359
0,81449002
0,7090379
Ma question est donc : comment générer des nombres aléatoires sans partir
toujours du même nombre de départ (ici 0,7055...) ?
Salut Nicolas, Je ne dispose pas de XP, mais as-tu regardé l'aide VBA de Rnd ? Sous Excel 2000, il y a plein de truc à savoir sur cette fonction. -- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Nicolas B." a écrit dans le message de news:
Bonjour,
Essayez ce petit bout de code utilisant Rnd : Sub Alea() For A = 1 To 20 Cells(A, 1) = Rnd Next End Sub
La fonction Rnd est censée renvoyer un nombre aléatoire. Mais je peux vous dire que les nombres "aléatoires" que vous avez trouvés sont (du moins sur XP) : 0,70554751 0,53342402 0,57951862 0,28956246 0,30194801 0,7747401 0,01401764 0,76072359 0,81449002 0,7090379
Ma question est donc : comment générer des nombres aléatoires sans partir toujours du même nombre de départ (ici 0,7055...) ?
-- Nicolas B.
MacBob
Bonjour Niclolas
Il suffit d'ajouter Randomize comme ligne de code en début de procédure pour réinitialiser la suite de nombres aléatoires.
MacBob 8°)))
Le 26/07/03 16:56, dans , « Nicolas B. » a écrit :
Bonjour,
Essayez ce petit bout de code utilisant Rnd : Sub Alea() For A = 1 To 20 Cells(A, 1) = Rnd Next End Sub
La fonction Rnd est censée renvoyer un nombre aléatoire. Mais je peux vous dire que les nombres "aléatoires" que vous avez trouvés sont (du moins sur XP) : 0,70554751 0,53342402 0,57951862 0,28956246 0,30194801 0,7747401 0,01401764 0,76072359 0,81449002 0,7090379
Ma question est donc : comment générer des nombres aléatoires sans partir toujours du même nombre de départ (ici 0,7055...) ?
-- Nicolas B.
Bonjour Niclolas
Il suffit d'ajouter Randomize comme ligne de code en début de procédure pour
réinitialiser la suite de nombres aléatoires.
MacBob 8°)))
Le 26/07/03 16:56, dans un6qhY4UDHA.2248@TK2MSFTNGP10.phx.gbl, « Nicolas
B. » <nicolas.bruot@laposte.net> a écrit :
Bonjour,
Essayez ce petit bout de code utilisant Rnd :
Sub Alea()
For A = 1 To 20
Cells(A, 1) = Rnd
Next
End Sub
La fonction Rnd est censée renvoyer un nombre aléatoire. Mais je peux vous
dire que les nombres "aléatoires" que vous avez trouvés sont (du moins sur
XP) :
0,70554751
0,53342402
0,57951862
0,28956246
0,30194801
0,7747401
0,01401764
0,76072359
0,81449002
0,7090379
Ma question est donc : comment générer des nombres aléatoires sans partir
toujours du même nombre de départ (ici 0,7055...) ?
Il suffit d'ajouter Randomize comme ligne de code en début de procédure pour réinitialiser la suite de nombres aléatoires.
MacBob 8°)))
Le 26/07/03 16:56, dans , « Nicolas B. » a écrit :
Bonjour,
Essayez ce petit bout de code utilisant Rnd : Sub Alea() For A = 1 To 20 Cells(A, 1) = Rnd Next End Sub
La fonction Rnd est censée renvoyer un nombre aléatoire. Mais je peux vous dire que les nombres "aléatoires" que vous avez trouvés sont (du moins sur XP) : 0,70554751 0,53342402 0,57951862 0,28956246 0,30194801 0,7747401 0,01401764 0,76072359 0,81449002 0,7090379
Ma question est donc : comment générer des nombres aléatoires sans partir toujours du même nombre de départ (ici 0,7055...) ?
-- Nicolas B.
Daniel.j
Il y a cela aussi: Sub Alea() For A = 1 To 20 Cells(A, 1) = Int((20 * Rnd) + 1) Next End Sub
Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"Nicolas B." a écrit dans le message de news:
Bonjour,
Essayez ce petit bout de code utilisant Rnd : Sub Alea() For A = 1 To 20 Cells(A, 1) = Rnd Next End Sub
La fonction Rnd est censée renvoyer un nombre aléatoire. Mais je peux vous dire que les nombres "aléatoires" que vous avez trouvés sont (du moins sur XP) : 0,70554751 0,53342402 0,57951862 0,28956246 0,30194801 0,7747401 0,01401764 0,76072359 0,81449002 0,7090379
Ma question est donc : comment générer des nombres aléatoires sans partir toujours du même nombre de départ (ici 0,7055...) ?
-- Nicolas B.
Il y a cela aussi:
Sub Alea()
For A = 1 To 20
Cells(A, 1) = Int((20 * Rnd) + 1)
Next
End Sub
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"Nicolas B." <nicolas.bruot@laposte.net> a écrit dans le message de news:
un6qhY4UDHA.2248@TK2MSFTNGP10.phx.gbl...
Bonjour,
Essayez ce petit bout de code utilisant Rnd :
Sub Alea()
For A = 1 To 20
Cells(A, 1) = Rnd
Next
End Sub
La fonction Rnd est censée renvoyer un nombre aléatoire. Mais je peux vous
dire que les nombres "aléatoires" que vous avez trouvés sont (du moins sur
XP) :
0,70554751
0,53342402
0,57951862
0,28956246
0,30194801
0,7747401
0,01401764
0,76072359
0,81449002
0,7090379
Ma question est donc : comment générer des nombres aléatoires sans partir
toujours du même nombre de départ (ici 0,7055...) ?
Il y a cela aussi: Sub Alea() For A = 1 To 20 Cells(A, 1) = Int((20 * Rnd) + 1) Next End Sub
Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"Nicolas B." a écrit dans le message de news:
Bonjour,
Essayez ce petit bout de code utilisant Rnd : Sub Alea() For A = 1 To 20 Cells(A, 1) = Rnd Next End Sub
La fonction Rnd est censée renvoyer un nombre aléatoire. Mais je peux vous dire que les nombres "aléatoires" que vous avez trouvés sont (du moins sur XP) : 0,70554751 0,53342402 0,57951862 0,28956246 0,30194801 0,7747401 0,01401764 0,76072359 0,81449002 0,7090379
Ma question est donc : comment générer des nombres aléatoires sans partir toujours du même nombre de départ (ici 0,7055...) ?