Nombre aléatoire vba (excel)

Résolu/Fermé
Signaler
Messages postés
1148
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 mars 2021
-
Messages postés
1148
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 mars 2021
-
Bonjour,

J'aimerai, par pure curiosité, écrire un code qui génère un nombre aléatoire sans utiliser de fonction.
Je me demande si il y a un calcul mathématique qui permet ca, ou alors se baser sur le temps (en ms).

Si vous avez des idées,

Cordialement,

3 réponses

Messages postés
32
Date d'inscription
mercredi 6 juillet 2011
Statut
Membre
Dernière intervention
12 septembre 2013
9
Bonjour eljojo_e,

Tu devrais te baser sur une loi normal.

Par contre, dans VBA comme dans Excel, tu as des fonctions pour, comme tu l'as dis. Pourquoi faire compliquer quand on peut faire simple ?

Cordialement,

Thordek
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 666
Bonjour,

Pour satisfaire ta curiosité, il est bien entendu plus simple d'utiliser les fonctions natives d'excel ou de vba (ALEA() et Randomize).
Cependant, il est toujours possible de créer une procédure permettant de réaliser plus ou moins ce que tu souhaites.
En partant du principe que la mémoire de l'ordi ne travaille pas systématiquement à la même vitesse, on peux remplir une "grosse" variable tableau avec des chiffres de 1 à 100, ensuite, déclencher un chronomètre et sortir un résultat "aléatoire".
Voici un code possible :
Option Explicit 

Sub NombreAleatoire() 
Dim Tabl(1 To 1000, 1 To 1000) 
Dim t, i As Long, j As Long, Cpt As Integer 

Cpt = 1 '1er nombre aléatoire !!! Nbre Entier !!! 
For i = 1 To UBound(Tabl, 1) 
    For j = 1 To UBound(Tabl, 2) 
        Tabl(i, j) = Cpt 
        If Cpt = 100 Then Cpt = 0 ' 100 = dernier nbre aléatoire 
'pour cet exemple j'ai choisi des nombres de 1 à 100 ENTIERS!!! 
        Cpt = Cpt + 1 
    Next j 
Next i 
t = Timer 
i = 1 
j = 1 
Do While Timer <= t + 1 'ici on peux allonger le temps 
'pour rendre encore + aleatoire la procédure
'affichage en cellule A1 
    Cells(1, 1) = Tabl(i, j) 
    If i = 1000 Then i = 0 
    If j = 1000 Then j = 0 
    i = i + 1 
    j = j + 1 
Loop 
End Sub


Cordialement,
Franck P
Messages postés
1148
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 mars 2021
134
Super ton code !
Merci bien !
Messages postés
1148
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 mars 2021
134
^^ Oui c'est sur, mais pour ta question "Pourquoi faire compliquer quand on peut faire simple?", c'est uniquement par pur curiosité.

Voilà,

Cordialement,