afficher l'heure sur un userform

Bonjour Fabrice,

Un message de Frédéric Sigonneau :

Cette procédure était destiné à afficher l'heure dans
une cellule. Tu peux très bien l'adapter à un "Label"
d'un formulaire.

De plus, au lieu d'utiliser des boutons de commandes,
tu peux utiliser les "événements" disponible du Formulaire
pour démarrer et terminer le processus de mise à jour de l'heure.

'============================== 'Obtenir l'heure dans une cellule, avec mise à jour permanente
'Sous la plume de Frédéric Sigonneau

'De : Patrick Molloy, mpep
'
'Copier le code ci-dessous dans un module standard puis ajouter deux
'boutons dans une feuille de calcul.
'Renommer le 1er "Lancer l'heure" et lui affecter la macro Start_Clock
'Renommer le 2nd "Arrêter l'heure" et lui affecter la macro Stop_Clock
'Même chose possible avec deux boutons de barre d'outils

Option Explicit
Public bStop As Boolean

Sub Start_Clock()
bStop = False
Application.OnTime Now + TimeValue("0:0:01"), "SetClock"
End Sub

Private Sub SetClock()
Range("A1").Value = Format(Now, "HH:MM:SS")
If bStop Then Exit Sub
Start_Clock
End Sub

Sub Stop_Clock()
bStop = True
End Sub
'==============================


"fabrice meunier" <serv.finances.chmortagne@wanadoo.fr> a écrit dans le message de groupe
de discussion : e$BcfSgYKHA.4140@TK2MSFTNGP05.phx.gbl...
Bonjour,
Sauriez-vous afficher l'heure système sur un "userform" de façon que ce soit
visible pour l'utilisateur ?
Merci de votre réponse
Fabrice

Bonjour,

Private Sub UserForm_Initialize()
'...
Label1 = "Affiché à " & Format(Now, "hh:mm:ss")
End Sub


'lSteph

On 10 nov, 13:52, "fabrice meunier"
<serv.finances.chmorta...@wanadoo.fr> wrote:

Bonjour,
Sauriez-vous afficher l'heure système sur un "userform" de façon que ce soit
visible pour l'utilisateur ?
Merci de votre réponse
Fabrice

Bonjour,

sauf à réafficher le formulaire ce qui compromettrait quelque peu de
travailler dessus
il me semble que l'invocation du Ontime pour modifier les contrôles du
userform
de par sa portée rend un tout petit peu plus compliquée cette mise à
jour.

Ta solution facilement adaptée m'intéresse.

;o)

--
lSteph

On 10 nov, 14:30, "michdenis" <michde...@hotmail.com> wrote:

Bonjour Fabrice,

Un message de Frédéric Sigonneau :

Cette procédure était destiné à afficher l'heure dans
une cellule. Tu peux très bien l'adapter à un "Label"
d'un formulaire.

De plus, au lieu d'utiliser des boutons de commandes,
tu peux utiliser les "événements" disponible du Formulaire
pour démarrer et terminer le processus de mise à jour de l'heure.

'======================== =======
'Obtenir l'heure dans une cellule, avec mise à jour permanente
'Sous la plume de Frédéric Sigonneau

'De : Patrick Molloy, mpep
'
'Copier le code ci-dessous dans un module standard puis ajouter deux
'boutons dans une feuille de calcul.
'Renommer le 1er "Lancer l'heure" et lui affecter la macro Start_Clock
'Renommer le 2nd "Arrêter l'heure" et lui affecter la macro Stop_Clock
'Même chose possible avec deux boutons de barre d'outils

Option Explicit
Public bStop As Boolean

Sub Start_Clock()
    bStop = False
    Application.OnTime Now + TimeValue("0:0:01"), "SetClock"
End Sub

Private Sub SetClock()
    Range("A1").Value = Format(Now, "HH:MM:SS")
    If bStop Then Exit Sub
    Start_Clock
End Sub

Sub Stop_Clock()
    bStop = True
End Sub
'======================== =======

"fabrice meunier" <serv.finances.chmorta...@wanadoo.fr> a écrit dans le message de groupe
de discussion : e$BcfSgYKHA.4...@TK2MSFTNGP05.phx.gbl...
Bonjour,
Sauriez-vous afficher l'heure système sur un "userform" de façon que ce soit
visible pour l'utilisateur ?
Merci de votre réponse
Fabrice

..sinon il y a ceci de JB

Dim temps
Sub majHeure()
UserForm1.TextBox1.Value = Now
UserForm1.Label1.Caption = Now
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End Sub
Sub auto_open()
UserForm1.Show
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub
Private Sub UserForm_Initialize()
majHeure
End Sub


On 10 nov, 13:52, "fabrice meunier"
<serv.finances.chmorta...@wanadoo.fr> wrote:

Bonjour,
Sauriez-vous afficher l'heure système sur un "userform" de façon que ce soit
visible pour l'utilisateur ?
Merci de votre réponse
Fabrice