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.