horloge dans un userform ou textbox

[emsec72]

Bonjour à tous
quelqu'un pourrait il me dire comment faire pour que l'heure de mon horloge fonctionne en continue et qu'elle ne soit pas figée à l'instant ou j' ais ouvert mon userform .
voici le code que j'utilise:

Private Sub UserForm_Initialize()
Dim TheTime As Date
TheTime = Now
TextBox2 = Format(TheTime, "dd - mmmm")
TextBox1 = Format(TheTime, "HH:MM:ss")
End Sub

Merci par avance

 

[BOISGONTIER]

Re : horloge dans un userform ou textbox

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Formulaire/OntimeHeureFormulaire.xls

JB

 

[emsec72]

Re : horloge dans un userform ou textbox

Merci jB pour ta réponse, sa marche impec
A+
Df

 

[emsec72]

Re : horloge dans un userform ou textbox

désolé j'ais répondu un peu trop vite au post de J.B
en fait cela marche bien sauf que moi j'aurais voulu que l'heure apparaisse a l'ouverture du user form sans être obligé de passer par un bouton de commande.
Merci d'avance.

 

[phlaurent55]

Re : horloge dans un userform ou textbox

Salut à tous, ensec72

voici le fichier de Boisgontier avec une légère modif ( l'usf s'ouvre directement sans passer par le bouton 'GO'