afficher l'heure sur un userform

Le
fabrice meunier
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
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #20528421
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" de discussion : e$
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
LSteph
Le #20528591
Bonjour,

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


'lSteph

On 10 nov, 13:52, "fabrice meunier"
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


LSteph
Le #20528711
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"
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" de discussion : e$
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


LSteph
Le #20528701
..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:úlse
End Sub
Private Sub UserForm_Initialize()
majHeure
End Sub


On 10 nov, 13:52, "fabrice meunier"
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


Publicité
Poster une réponse
Anonyme