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
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
Bonjour vitalus,
et dans ton UserForm :
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
N'hésite pas à revenir vers moi !
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
Cordialement,
Kimy
Salut, un exemple ( temporaire ) à élaguer, car au départ c'était un chrono.
Partager