Nombre aléatoire vba (excel)
Résolu
eljojo_e
Messages postés
1155
Date d'inscription
Statut
Membre
Dernière intervention
-
eljojo_e Messages postés 1155 Date d'inscription Statut Membre Dernière intervention -
eljojo_e Messages postés 1155 Date d'inscription Statut Membre Dernière intervention -
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,
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:
- Nombre aléatoire vba (excel)
- Liste déroulante excel - Guide
- Nombre de jours entre deux dates excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
3 réponses
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
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
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 :
Cordialement,
Franck P
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