Sujet Précédent Sujet Suivant

Nombre aléatoire vba (excel)

Résolu/Fermé
eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 - 16 févr. 2012 à 15:33
eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 - 24 févr. 2012 à 14:53
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,

A voir également:

3 réponses

Réponse 1 / 3
thordek Messages postés 32 Date d'inscription mercredi 6 juillet 2011 Statut Membre Dernière intervention 12 septembre 2013 9
22 févr. 2012 à 16:10
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
0
Réponse 2 / 3
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 24/02/2012 à 14:15
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
0
eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 152
24 févr. 2012 à 14:53
Super ton code !
Merci bien !
0
Réponse 3 / 3
eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 152
24 févr. 2012 à 13:50
^^ Oui c'est sur, mais pour ta question "Pourquoi faire compliquer quand on peut faire simple?", c'est uniquement par pur curiosité.

Voilà,

Cordialement,
-1

Discussions similaires

tirage aléatoire sans doublon
missfraise02 -
sc -

14 réponses
supprimer espace dans les nombres (Excel)
choise62 -
nono -

13 réponses