Titre: Nombre aléatoire.

Description:

Afficher un nombre aléatoire compris entre x et y.

Le code:

Dim Vr1
Randomize 'Initialise générateur de nombres aléatoires.
'Renvoie une valeur aléatoire comprise entre 1 et 10.
Vr1 = Int((10 * Rnd) + 1)
MsgBox Vr1