Heure et date dans userform
Bonjour,
Je sais que ce sujet a été traite 100 fois , mais là il me faut de l'aide . moi et le VBA....
Dans une Userform déjà assez fourni il faudrait que je fasse apparaître l'heure et la date en temps réel dans un Label . Je l'ai déjà fait il y a quelques mois mais je n'y arrive vraiment pas je suis perdu entre module et tout l'bazard !
Quel est la "procédure" pas à pas pour y arriver ?
MERCI d'avance !
Bonjour
Solution J.B.
Dim temps
Sub majHeure()
UserForm1.Label1.Caption = 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
Private Sub UserForm_Initialize()
majHeure
End Sub
Private Sub UserForm_Initialize()
majHeure
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
auto_close
End SubCordialement
Amadéus a écrit :Bonjour
Dim temps
Sub majHeure()
UserForm1.Label1.Caption = 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
Private Sub UserForm_Initialize()
majHeure
End Sub
Private Sub UserForm_Initialize()
majHeure
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
auto_close
End Sub
Cordialement
Merci de ta réponse , mais désolé je comprend pas . Je l'est copié collé ... A part ca je sais pas faire grand chose !
Cordialement !
Edit Amadéus: J'avais changé de Code entre-temps
Re, bonjour
Le fichier pour l'heure en temps réel
Cordialement
Bonjour ,
Merci mais je l'avais déjà ce fichier , en fait ce qui me bloque c'est où placer les différentes formules etc...
j'en demande beaucoup je sais ! ahahh
Merci encore , cordialement
Re, bonjour
Perso, pour moi qui suis très faible en VBA, je préfére cette solution avec juste les Codes dans le module.
Cordialement
Bonjour
Tu ouvres le fichier
Avec les 2 touches Alt et F11, tu ouvres l'Editeur VBA
Dans la fenêtre de l'éditeur VBA , "Insertion " "Module" et tu y colles le Code (que tu copies auparavant)
Cordialement
Bon j'y arrive pas Madremiaaa !
Si je vous met mon fichier en piece jointe quelqu'un peut-il me mettre la date et l'heure en temps réel là où il y a de la place pour sur le userform ?
Merci, cordialement !
-- Mar Juil 13, 2010 9:23 am --
nordahl a écrit :Bon j'y arrive pas Madremiaaa !
Si je vous met mon fichier en piece jointe quelqu'un peut-il me mettre la date et l'heure en temps réel là où il y a de la place pour sur le userform ?
Merci, cordialement !
Bonjour
A titre indicatif, pour la prochaine, c'est par là que tu aurais du commencer dès le premier message.
Cordialement