Probleme avec Horloge

[beliser]

Bonsoir au forum,

J'ai un souçi avec l'horloge que j'ai placé en page d'acceuil de mon classeur.
C'est à dire que lorsque je souhaite me déplacer de feuille en feuille il y a un bug qui apparait.
Que dois je changer dans le code ci-dessous?

Option Explicit
Dim Temps As Date
Public Sub MAJHorloge()
Dim C As Range
'Programmation de l'évènement toutes les secondes
Temps = Now + TimeValue('00:00:01')
Application.OnTime Temps, 'MAJHorloge'
Set C = ActiveCell
'MAJ de l'horloge
ActiveSheet.Shapes('Horloge').Select
Selection.Characters.Text = Format(Now, 'hh:mm:ss')
C.Select
End Sub
Public Sub StopHorloge()
On Error Resume Next
'Stoppe la gestion de l'évènement OnTime
Application.OnTime Temps, 'MAJHorloge', , False
On Error GoTo 0
End Sub

Merci d'avance.

beliser.

 

[Eric C]

Bonsoir le forum
Bonsoir beliser

Lorsque l'on obtient une prompte réponse dans un forum, l'on reste sur celui-ci pour un complément d'informations. Surtout lorsqu'il est 'habité' par des personnes forts symphatiques et compétentes tout comme ici d'ailleurs.

Pourquoi Eric pas content

🙁 Pas bien ----

 

[beliser]

Re bonsoir le forum
Bonsoir Eric C

Excuse moi pour ce mal entendu, mais je n'ai plus pensé que j'avais un post ailleurs traitant ce sujet.

Encore mille excuse. 😱

Par le plus grand des hasard aurais tu une solution pour mon code.

Merci.

beliser.