Discussion :

[vitalus]

Bonjour,
pour afficher une date sur mon USF j'ai le code suivant:
dans Userform_initialisez de mon userform
Tetxbox1 = Date
Maintenant j'aimerais savoir le code à utiliser pour afficher l'heure en temps réel.
Merci de m'aider

[Kimy_Ire]

Bonjour vitalus,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub majHeure()
 UserForm1.TextBox1 = Format(Now, "hh:mm:ss")
 temps = Now + TimeValue("00:00:1")
 Application.OnTime temps, "majHeure"
End Sub
 
Sub auto_close()
 On Error Resume Next
 Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub
 
Sub afficheform()
   UserForm1.Show
End Sub

et dans ton UserForm :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub UserForm_Initialize()
   majHeure
End Sub
 
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  auto_close
End Sub

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[kiki29]

Salut, un exemple ( temporaire ) à élaguer, car au départ c'était un chrono.