Problème timer chrono

Bonjour

Dans ce code ça beug ligne 6 sur Timer

avez vous une idée d'ou cela peut provenir

Je vous remercie

Private Sub CommandButton7_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("K5") = 0 Then
  StartTime = Timer              'C'est ici que ça beug
  PauseTime = 0
  LastTime = 0
Else
  StartTime = 0
  PauseTime = Timer
End If
StartIt:
  DoEvents
  If StopIt = True Then
    LastTime = TotalTime
    Exit Sub
  Else
    FinishTime = Timer
    TotalTime = FinishTime - StartTime + LastTime - PauseTime
    TTime = TotalTime * 100
    HM = TTime Mod 100
    TTime = TTime \ 100
    hh = TTime \ 3600
    TTime = TTime Mod 3600
    MM = TTime \ 60
    SS = TTime Mod 60
    Range("K5").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
    If ResetIt = True Then
      Range("K5") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
      LastTime = 0
      PauseTime = 0
      End
    End If
    GoTo StartIt
  End If

Bonjour,

Pas d'erreur chez moi.

A+

Bonsoir,

N'avez-vous pas une variable Timer ailleurs dans votre code ? VBA n'aime pas trop l'utilisation de variable système pour en faire autre chose...

@ bientôt

LouReeD

Bonsoir

Merci pour vos réponses

Effectivement 3 fois la valeur Timer dans le code ,je vais modifier la macro Timer et lui donner

un autre nom différent à chaque partie de code

Crdlt

Attention je parle de variable "personnel", Timer peut être utilisé plusieurs fois dans un fichier mais c'est une fonction VBA qui donne "l'heure" de l'horloge interne du PC je crois, donc :
Dim Tempo1, Tempo2, Tempo3
Tempo1 = Timer
Tempo2 = Timer
Tempo3 = Timer

Mais pas : Timer= "LouReeD" ou Timer = 125 où Là Timer serait considéré comme une variable et du coup il y a conflit.

@ bientôt

LouReeD

Bonjour LouReeD

Merci, pour ton aide

Je n'arrive pas a mettre a niveau le code pour que cela fonctionne normalement

Je précise que sur mon tableau il y a 3 chronos qui sont déclenchés par 3 boutons différents

Le code joint sur mon post d'hier concerne 1 chrono

Je joint la macro Timer

Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub

J'AI trouvé la solution Merci pour ton aide

Je pense que c'est du au nom de votre Sub, si ce n'est pas ça il faut tout de même éviter d'utiliser des noms "réservés"

@ bientôt

LouReeD

Rechercher des sujets similaires à "probleme timer chrono"