affichage d'un chronometre

[raym1313]

bonjour a tous
je souhaiterai dans une feuille excel

en A4 par exemple
qu un chronometre apparaisse

que je puisse le faire demarrer, l arreter le redemarrer si necessaire par le biais d'une msgvox

merci pour votre aide

 

[roro69]

Re : affichage d'un chronometre

Bonsoir ;
Voici un bonne exemple trouvé ici:
https://www.excel-downloads.com/attachments/chrono-zip.5141/

 

[raym1313]

Re : affichage d'un chronometre

Bonsoir ;
Voici un bonne exemple trouvé ici:
https://www.excel-downloads.com/attachments/chrono-zip.5141/

merci roro
j ai trouve ceci qui me conviendrai parfaitement

Dim temps
Sub majHeure()
Sheets("feuil1").[A1]=Now
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End Sub

Sub auto_open()
majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub

par contre je souhaiterai le stopper et le mettre a zero
quand je le desire
est ce possible

 

[JCGL]

Re : affichage d'un chronometre

Bonjour à à tous,

Un chronomètre, un vrai...
Une jolie réalisation de mon ami JeanMarie 🙂.

Il suffit d'appuyer sur les boutons (je vous avais prévenu, c'est un vrai 😛)

A+ à tous

 

[BOISGONTIER]

Re : affichage d'un chronometre

Bonsoir,

Public ProchainChrono
Public chrono

Sub majChrono()
 temp = chrono / 3600
 [A1] = Format(temp / 24, "hh:mm:ss")
 chrono = chrono + 1
 ProchainChrono = Now + TimeValue("00:00:1")
 Application.OnTime ProchainChrono, "majChrono"
End Sub

Sub auto_close()
  On Error Resume Next
  Application.OnTime ProchainChrono, Procedure:="majChrono", Schedule:=False
End Sub

Sub Démarre()
  chrono = 0
  majChrono
End Sub

JB