date et heure en vba

[angoul]

bonsoir, de retour ici pour vous demander encore une aide
j'ai creer dans mon fichier vba une cellule avec comme code
"Private Sub UserForm_Activate()
Me.TextDate.Text = Format(Now(), "dd/mm/yyyy")
End Sub"

jusque la sa marche super bien

mais j'aimerai dans une autre cellule avoir l'heure qui s'affiche avec un rafraichissement en temps reel ou toutes les 10 secondes

comment faire??

merci

 

[alexga78]

Re : date et heure en vba

Bonsoir Angoul et au forum,
un essai en pièce jointe
Bonne soirée à tous

 

[kjin]

Re : date et heure en vba

Bonsoir,

j'ai creer dans mon fichier vba une cellule avec comme code
"Private Sub UserForm_Activate()
Me.TextDate.Text = Format(Now(), "dd/mm/yyyy")
End Sub"
mais j'aimerai dans une autre cellule avoir l'heure qui s'affiche avec un rafraichissement en temps reel ou toutes les 10 secondes

C'est quoi des cellules dans un formulaire ?!
Si TextDate et TextTime sont des "TextBox"
dans le module du formulaire

Private Sub UserForm_Initialize()
TextDate = Date
TextTime = Time
MajH
End Sub

Private Sub CommandButton1_Click() 'Ton bouton pour quitter le formulaire
Unload Me
StopMajH
End Sub

et dans un module standard

Sub MajT()
UserForm1.TextTime = Time
MajH
End Sub

Sub MajH()
'DoEvents
Application.OnTime Now + TimeValue("00:00:01"), "MajT"
End Sub

Sub StopMajH()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "MajT", , False
End Sub

A+
kjin

 

[angoul]

Re : date et heure en vba

merci beaucoup pour cette aide