Excel: nombres aléatoires toutes les 5 sec.
Résolu
paulo
-
paulo -
paulo -
Bonjour,
J'aimerais générer dans Excel des nombres aléatoires entre 2 bornes, mais à intervalles de temps régulier. C'est à dire j'aimerais que le nombre change de valeur toutes les 5 secondes pour un nouveau nombre aléatoire dans les mêmes bornes.
Pensez-vous que c'est possible?
Bien cordialement
J'aimerais générer dans Excel des nombres aléatoires entre 2 bornes, mais à intervalles de temps régulier. C'est à dire j'aimerais que le nombre change de valeur toutes les 5 secondes pour un nouveau nombre aléatoire dans les mêmes bornes.
Pensez-vous que c'est possible?
Bien cordialement
A voir également:
- Excel: nombres aléatoires toutes les 5 sec.
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel trier par ordre croissant chiffre - Guide
1 réponse
Bonjour,
Sub Tirage_Aleatoire()
Randomize ' Initialise le générateur de nombres aléatoires.
With Worksheets(1)
'Renvoie une valeur aléatoire comprise entre 10 et 50.
'formule: Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
.Range("A2") = Int((50 - 10 + 1) * Rnd + 10)
End With
'Intervalle de temps: 5 secondes
CinqSecondes = TimeSerial(Hour(Time), Minute(Time), Second(Time) + 5)
Application.OnTime CinqSecondes, "Tirage_Aleatoire"
End Sub
Bonne suite
Sub Tirage_Aleatoire()
Randomize ' Initialise le générateur de nombres aléatoires.
With Worksheets(1)
'Renvoie une valeur aléatoire comprise entre 10 et 50.
'formule: Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
.Range("A2") = Int((50 - 10 + 1) * Rnd + 10)
End With
'Intervalle de temps: 5 secondes
CinqSecondes = TimeSerial(Hour(Time), Minute(Time), Second(Time) + 5)
Application.OnTime CinqSecondes, "Tirage_Aleatoire"
End Sub
Bonne suite
paulo
Merci c'est très bien tout ca !
