Bonjour a tous, dans mon user form j'ai mis un textbox contenant la date et l'heure a chaque fois k'un utilisateur le lance, mais j'aimerai savoir s'il est possible de faire défiler l'heure ?
 
voila mon code :  
 
Private Sub UserForm_Initialize()
TextBoxDate.Value = Now()
'permet d'afficher la date lors du lancement du fichier
End Sub
 
Merci a tous

Tu peux faire une boucle sans fin avec un doevents
 
Do While True
        DoEvents
        MonHeure.Text = Time
    Loop
End Sub
 
Attentin si tu mets la boucle dans initialize de ton userform, il s'affichera jamais. Il vaut mieux associer la boucle à un bouton.

oki merci

Y'a mieux, j'ai récupéré sur le net un module bas qui utilise les APIS windows et qui reprend l'heure système
Je peux te l'envoyer, et à toi d'adapter pour ton userform.
 

euh... passer par les APIS ou utiliser TIME de VB, ça va pas changer grand chose : VB n'invente pas l'heure, il la récupère du système de toute façon. je ne pense pas qu'on soit à quelques micro-secondes près...
 
par contre, une boucle avec un doevents dedans euh...
 
les timer, c'est pas fait pour les chiens hein ?

 
Oui mais je suppose que là c'est avec VBA et Excel.
 

J'ai pas Excel sous la main, mais je doute fortement qu'il n'y ait pas un objet timer utilisable...

par exemple, il peut faire :
 

Mais je suis sûr qu'il y a aussi un vrai timer trouvable dans les références

Avec VBA Acces, il y a effectivement un timer:
 
Private Sub Form_Load()
  TimerInterval = 1000
End Sub
 
Private Sub Form_Timer()
   Label1.Caption = Time
End Sub
 
Mais j'ai pas trouvé d'équivalent avec excel.