TOP

Fonction VBA : Rnd

Description

La fonction VBA Rnd renvoie un nombre aléatoire inférieur à 1 et supérieur ou égal à 0.


Syntaxe Rnd

Rnd

Exemple VBA Rnd

Quelques exemples de valeurs renvoyées par la fonction Rnd :

Sub RndExample1()
    
    Randomize
    
    MsgBox Rnd 'Retours, par exemple : 0,1790262
    MsgBox Rnd 'Retours, par exemple : 0,734448
    MsgBox Rnd 'Retours, par exemple : 0,4870669
    MsgBox Rnd 'Retours, par exemple : 0,9100572
    MsgBox Rnd 'Retours, par exemple : 0,7860449
    MsgBox Rnd 'Retours, par exemple : 0,1607063
    
End Sub
Ajoutez toujours une instruction Randomize à votre procédure ou fonction avant d'utiliser la fonction Rnd afin que les nombres aléatoires ne soient pas répétés.

Générons un entier aléatoire de 1 à 10 en utilisant la fonction Rnd :

Function RandomNumber()
    
    Randomize
    
    RandomNumber = Int(Rnd * 10 + 1)
    
End Function

Sub RndExample2()
    
    MsgBox RandomNumber 'Retours, par exemple : 6
    MsgBox RandomNumber 'Retours, par exemple : 2
    MsgBox RandomNumber 'Retours, par exemple : 10
    MsgBox RandomNumber 'Retours, par exemple : 7
    MsgBox RandomNumber 'Retours, par exemple : 9
    MsgBox RandomNumber 'Retours, par exemple : 1
    MsgBox RandomNumber 'Retours, par exemple : 8
    
End Sub