Bonjour à tous,
J'en appelle à vous car j'ai un chronomètre sur excel que j'aimerais modifier.
En effet, je voudrais pouvoir calculer des temps intermédiaire avec une alerte quand un temps X prédéfini est atteint.
Par exemple:
Je clic le chronomètre démarre, je reclic...5sec, je clic....clic 3sec, je clic clic 1sec. Ok 1 sec est ma valeur cible, j'ai une alerte instantanée
J'ai un bout de code que je n'arrive pas à intégrer dans le module 3 pour voir si çà colle
Private Sub Chrono()
Dim T As Double
T = TimeValue(UserForm3.LblTemps.Caption) - TimeSerial(0, 0, 1)
UserForm3.LblTemps.Caption = Format(T, "hh:mm:ss")
If T = 0 Then TimerOff
'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'As an alternative you could try making a call to a separate Sub with the sound command/s, instead of placing the code here.
If UserForm3.LblTemps.Caption = "00:59:55" Then '<--- set the time for sound here
Beep '<-- place your command here for sound
End If
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
End Sub
Vous pouvez m'aider?
Merci à vous