Chronometre

Pour ça tu doit ajouter un 2ém bouton pour l'intermédiaire.
Remplace le code par celui-ci

Dim TimeON As Date
Dim OnTime As Boolean

Private Sub CommandButton1_Click()
'Intermédiaire
    Range("A1") = Time - TimeON
End Sub

Private Sub CommandButton2_Click()
'Démarre/arrète
    OnTime = Not OnTime
    If OnTime Then Timer
End Sub
Sub Timer()
Static S As Byte
    TimeON = Time
    Range("A1") = ""
    While OnTime
        If S <> Second(Time) Then
            Range("B1") = Time - TimeON
            S = Second(Time)
        End If
        DoEvents
    Wend
End Sub

A+

Merci pour ton aide.
le code fonctionne bien.
Mais je souhaiterais, en fait, que le temps entre les deux pressions soit soit affiché dans une autre cellule et si possible qu'il y est cumul.
Une fois de plus merci.
Cordialement

Yfchauer

Y a un petit souci comme tu dis, mais il ne vient pas du code communiqué.
Le bouton doit provenir de la boite à outils contrôles.

Placer le bouton sur la feuille.
Double clic dessus et copier le code DANS CETTE FEUILLE et ne pas recopier 2 fois
Private Sub CommandButton1_Click()

Cliquer 1 fois, le chrono démarre
Une 2èm fois le chrono arrète et affiche le temps dans A1
Et in ne saurait pas afficher FAUX !!

Plus simple...
Coller un bouton et dans le code du bouton...

Private Sub CommandButton1_Click()
Static OnTime As Boolean
Static TimeON As Date
    OnTime = Not OnTime
    If OnTime Then
        TimeON = Time ' TimeSerial(Hour(Time), Minute(Time), Second(Time))
        Range("A1") = ""
        Range("A1").NumberFormat = "[hh]:mm:ss"
    Else
        Range("A1") = Time - TimeON
    End If
End Sub

A+

Bonjour
Voir !
A+