l'heure dans un userform

S

Sylvain

Guest
J'ai crée une application et je voudrai afficher l'heure sur mon Userform.
Je l'ai fais via une textbox mais je n'arrive pas à trouver la combine pour que celle-ci s'actualise en temps réel, pendant l'utilisation de l'application.
 
T

Thierry

Guest
Salut Sylvain,

J'ai tenté un truc avec une macro de J.Walk qui marche super sur une cellule MAIS sur un Userform en textbox çà à "un peu" marché puis çà m'a méchamment planté excel !!

voilà le code :

Sub UpdateClock()
' Updates the clock that's visible
' DIGITAL CLOCK
UserForm1.TextBox1.Value = CDbl(Time)
' Set up the next event one second from now
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "UpdateClock"
End Sub

Sub StopClock()
Dim NextTick
' Cancels the OnTime event (stops the clock)
On Error Resume Next
Application.OnTime NextTick, "UpdateClock", , False
End Sub

Vois si tu arrives à mieux faire... Attention quand même !!!

Tic Tic Tac il est déjà miniut et des bananes !! Bonne nuit
@+Thierry
 

Discussions similaires

Réponses
9
Affichages
220

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
299 832
Messages
1 979 414
Membres
206 721
dernier inscrit
Sud catering