Heure dynamique

  • Initiateur de la discussion Philippe
  • Date de début
P

Philippe

Guest
Bonjour à vous tous !!!

J'aimerais récupérer dans une celulle l'heure dynamique !!!

Je pensais utiliser Application.OnTime Now + TimeValue('00:00:01'), 'Heure'

Mais comment on s'en sert, parce que les exemples sur l'aide de VBA excel sont pas forcément des plus explicitent !!!

Je vous remercie grandement
 

dg62

XLDnaute Barbatruc
Bonsoir à tous

Sub hrdyn()

Application.OnTime Now + TimeValue('00:00:30'), 'hrdyn'
Range('a1').Value = Now
End Sub


un petit call hrdyn et ça démarre.


mise à jour toutes les 30 s

Message édité par: dg62, à: 08/03/2005 18:38
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonsoir Tcho! Philippe, le Forum

Euh je ne veux pas paraître bégueule, mais si c'est ta signature pour 'Nathan...' c'est pas vraiment le style de la maison B)

Pour ce qui est de :

Application.OnTime Now + TimeValue('00:00:01'), 'Heure'


Cette ligne de code est prévue pour lancer une seconde après avoir tournée une autre macro qui serait nommée 'Heure'....

Pour récupérer l'heure 'dynamique' il faudrait faire tourner en boucle une macro qui écrirait sur ta cellule :

Range('A1') = Format(Now, 'HH : MM : SS')...

Elle pourrait justement se nommer 'Heure'... Et être lancée par la ligne de code que tu as trouvée... Mais c'est vraiment dans le gadget, car le OnTime te fera vraiment des soucis...

Sinon en plus simple, il a y un activeX StatusBar Control que j'ai rencontré grace à Ti... Voir ce Fil Lien supprimé

Bonne Soirée
@+Thierry

Message édité par: _Thierry, à: 08/03/2005 18:46
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 731
Membres
110 553
dernier inscrit
loic55