affichage chrono

Gipéhel · 19 Avril 2005

Bonjour,
Débutant en VBA et m'inspirant des différents exemples sur le forum, j'ai réussi à faire un chrono qui fonctionne mais qui s'affiche sur toutes les feuilles que l'on active et également dans les nouveaux classeurs que l'on ouvre. Que dois je faire pour éviter celà ?
Merci pour la réponse. [file name=chronojpl.zip size=13151]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/chronojpl.zip[/file]

myDearFriend! · 19 Avril 2005

Bonjour gipehel,

Comme il s'agit d'une procédure insérée dans un module de code général, il convient de qualifier le classeur et la feuille dans lesquels tu souhaites voir apparaître l'heure :

Sub ExecutionTimer()
      With ThisWorkbook.Sheets('Feuil1')
            ' ***************** G1 Heure actuelle
            .Range('G1').Value = Format(Now(), 'hh:mm: ss')
            '   ****************** I1Chrono
            .Range('I1').Value = Time - Range('F1').Value
      End With
   '
      Lheure = Now + TimeSerial(0, 0, 1)
      Application.OnTime Lheure, 'ExecutionTimer'
End Sub

Sans cette précision, VBA applique le traitement dans la feuille 'active'...

Cordialement.

Message édité par: myDearFriend!, à: 19/04/2005 12:17

gipehel · 19 Avril 2005

Bonjour Didier,
Merci. ça marche.
salutations. JPL.

affichage chrono

Gipéhel

XLDnaute Occasionnel

Pièces jointes

myDearFriend!

XLDnaute Barbatruc

gipehel

Guest

Discussions similaires