Excel: nombres aléatoires toutes les 5 sec. Résolu/Fermé

Question

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


Configuration: Windows 7 / Safari 535.11

f894009 · Answer

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