Affichage de l'heure

[M.D]

Bonsoir,
J’ai essayé d’afficher l’heure dans mon userform.
L’affichage s’effectue correctement, mais l’horaire reste figé.
Y-a-t-il une procédure pour active en permanence qui me donne l’heure en temps réel.
Merci de votre aide
M.D

 

[zeltron24]

Re : Affichage de l'heure

Bonsoir M.D.

Voici peut etre un exemple qui pourrait t'aider.

 

[Dranreb]

Re : Affichage de l'heure

Bonsoir.
L'ajout de cette procédure est prometteur:

Private Sub UserForm_Activate()
Do
   TextBox2.Value = Format(Now, "dd mmmm yyyy") 'mmmm pour le mois en lettre
   TextBox3.Value = Format(Now, "hh:mm:ss")
   DoEvents
   Loop While Me.Visible
Unload Me
End Sub

Mais il convient de remplacer tout Unload Me par Me.Hide sinon ça se termine par une méchante erreur, et même prévoir une Userform_QueryClose qui empêche toute tentative de le décharger en mettant son paramètre Cancel à True et fait un Me.Hide à la place.

Bonsoir Zeltron24. Effectivement, bravo. Un vrai timer est le summum, et ne présente pratiquement aucun risque tant qu'il ne dérange pas Excel lors d'une phase inopportune.

 

[zeltron24]

Re : Affichage de l'heure

Re,
Voici ton classeur en retour avec modifs

 

[Si...]

Re : Affichage de l'heure

salut

un autre exemple avec un contrôle "ShockwaveFlash"
Le ".swf" peut être téléchargé sur des sites "gratuits".

Pb avec "Calandar" et 2010 !

 

[excfl]

Re : Affichage de l'heure

Bonjour le forum,

Insertion d'une horloge dans ton USF ?

excfl

Si problème d'ouverture :

Onglet développeur
Sécurité des macros
Activer toutes les macros

 

[excfl]

Re : Affichage de l'heure

Re,

Insertion de l'heure

excfl

 

[M.D]

Re : Affichage de l'heure

Bonjour,


Merci aux membres de ce forum qui m'ont répondu et pour toutes ces solutions

M.D