affichage chrono

[Gipéhel]

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!]

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]

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