Excel: nombres aléatoires toutes les 5 sec.
Résolu/Fermé
A voir également:
- Excel: nombres aléatoires toutes les 5 sec.
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
12 mars 2012 à 20:23
12 mars 2012 à 20:23
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
13 mars 2012 à 08:16