Affichage d'heure !!

[Thomas]

Salut,

Sur un formulaire, comment
affiche-t-on en permanence l'heure ?

Il semble qu'il existe un contrôle tout prêt, mais je ne sais pas lequel ?

On me parle de Timer Objet, mais je ne le trouve pas dans la liste
des contrôles supplémentaitres.


Merci de vos réponses

Je suis sous Excel Xp

A+

 

[Thierry]

Salut Thomas,

Pour mettre l'heure sur une feuille, j'utilise une macro de J.Walk

çà donne çà :

Option Explicit
Dim NextTick
'---------------------------
Sub StartClock()
UpdateClock
End Sub
'---------------------------
Sub StopClock()
' Cancels the OnTime event (stops the clock)
On Error Resume Next
Application.OnTime NextTick, "UpdateClock", , False
End Sub
'---------------------------
Sub UpdateClock()
' Updates the clock that's visible
ThisWorkbook.Sheets("Interface").Range("DigitalClock").Value = CDbl(Time)

' Set up the next event one second from now
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "UpdateClock"
End Sub

En fait je pense qu'on doit pouvoir retourner la même chose dans un control de UserForm, à essayer...

@+Thierry

 

[Celeda]

Bonjour Thierry,
Cela me dit
Run Time Error 9
Subscript Out of the range ? Help Help Help !
Pourquoi SVP.
Merci de m'éclairer.

 

[Blandine]

superbe fichier joint de l'heure dans un UserForm
avec divers informations complémentaires...

Faire une recherche sur :

Timer impossible de l'arrêter!
Le fichier joint s'appelle TimerGM2.zip

un post que j'ai mis en ligne dévut octobre

Blandine

 

[Thierry]

Coucou Celeda, Bonjour le Forum

Oui je n'ai pas été assez explicite...

L'erreur :
Run Time Error 9
Subscript Out of the range ?

Vient de cette ligne :
ThisWorkbook.Sheets("Interface").Range("DigitalClock").Value = CDbl(Time)

Il faut :
1) Que tu aies une feuille nommée "Interface" (ou bien tu changes le nom dans la procédure)

2) Que tu aies une cellule nommée "DigitalClock" dans la feuille "Interface"

(Cette cellule au format HH:MM:SS)

Là çà devrait marcher mieux ! 🙂)

Bonne Journée (Youpi c'est déjà Mardi... Et Vendredi... Off !!
@+Thierry

 

[Celeda]

Merci Blandine et Thierry.
Je devrai pouvoir m'en sortir.
Bonne journée