Generer un nombre aleatoire.

Generer un nombre aleatoire. - VB/VBA/VBS - Programmation

Marsh Posté le 29-05-2006 à 22:30:24    

Bonjour à tous.
 
Je suis actuellement en train de faire une petite application qui necessite des nombres aleatoires.
j'ai utilisé l'instruction RND, le probleme est que cette instruction genere toujours la meme serie de valeurs, celle ci n'a rien d'aleatoire.
 
Existerait il une astuce ou une autre instruction permettant cette fois de generer de veritables nombres aleatoires ?
 
Merci d'avance pour vos reponses.  :hello:  
 

Reply

Marsh Posté le 29-05-2006 à 22:30:24   

Reply

Marsh Posté le 29-05-2006 à 23:06:46    

As-tu essayé la formule ALEA entre bornes dans une cellules, puis tu peux par la suite récupérer cette valeur via un texbox ou autre. Moi, j'ai fais un jeux de Yams comme ceci.

Reply

Marsh Posté le 30-05-2006 à 00:49:56    

Ca a l'air de fonctionner, merci beaucoup pour cette info :)

Reply

Marsh Posté le 30-05-2006 à 06:58:19    

bonjour,
Utilise l'instruction Randomize pour initialiser le générateur de nombre aléatoire :
 
Sub Test()
Dim MyValue
Randomize    ' Initialise le générateur de nombres aléatoires.
' Renvoie une valeur aléatoire comprise entre 1 et 6.
MyValue = Int((6 * Rnd) + 1)
End Sub
 
A+


---------------
roger
Reply

Marsh Posté le 30-05-2006 à 13:21:18    

voici une fonction VBA qui permet de generer un nombre aleatoire entre 2 bornes
 
Public Function RandomNumber(Lowest As Long, Highest As Long)
' Generates a random whole number within a given range
   Randomize
   RandomNumber = Int(Rnd * (Highest + 1 - Lowest)) + Lowest
End Function

Reply

Marsh Posté le 30-05-2006 à 13:49:30    

merci pour vos reponses.
 
Je viens de tester l'instruction randomize et effectivement le nombre devient different chaque fois cette fois ci.
 
Merci beaucoup :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed