Nombre aléatoire entre 2 chiffres

[Fanfan68]

Bonjour à tous,

Je voudrai renvoyer un nombre aléatoire entre le 3 et le 10 par exemple, je sais faire avec un chiffre(voir ci-dessous) mais pas avec 2.

Dim Cible As Byte
Randomize
Cible = Int((10 * Rnd) + 1)
MsgBox (Cible)

Merci pour votre aide

 

[Tibo]

Re : Nombre aléatoire entre 2 chiffres

Salut fanfan,

Par formule, ça donnerait ceci :

=ENT(ALEA()*8)+3

le 8 : de 3 à 10 tu as 8 chiffres

le 3 : point de départ

Je pense que tu peux adapter sans problème à ta macro.

@+

 

[MichelXld]

Re : Nombre aléatoire entre 2 chiffres

bonjour Fanfan, bonjour cher Tibo

un exemple par macro:

Sub nombreAleatoireDansPlageValeurs()
Dim Mini As Integer, Maxi As Integer
 
Mini = 3
Maxi = 10
Randomize
MsgBox Int((Maxi - Mini + 1) * Rnd + Mini)
End Sub

bon apres midi
MichelXld

 

[Fanfan68]

Re : Nombre aléatoire entre 2 chiffres

Merci à vous deux, c'est parfait.

Bonne soirée et à bientôt