Bonsoir à tous
D'abord je vous remercie beaucoup pour vos réponses et votre réactivité. Mais mon niveau de débutant m'empêche de décoller. Je me suis servi du code sur le fichier Chrono afin de le personnaliser à mon cas de figure mais cela ne marche pas.
En fait moi j'ai besoin que le chrono se lance dans toutes les cellules active tant qu'il s'agit d'une cellule de la colonne H.
Vous trouverez ci joint une copie de mon fichier excel et ci dessous mon code.
Je vous prie de bien vouloir m'aider et encore une fois merci d'avance.
Option Explicit
Dim ChronoEnCours As Boolean, Pause As Boolean
Dim Depart As Double, Temps As Double
Private Sub CommandButton8_Click()
' Bouton Play
If ActiveCell <> "" Then
MsgBox "cellule non vide"
Exit Sub
End If
If ActiveCell.Column <> 8 Then
MsgBox "Merci de cliquer d'abord dans la colonne Date et Heure de Fin"
Exit Sub
End If
If ChronoEnCours = True Then Exit Sub
ChronoEnCours = True
Depart = [now()]
Range("H8") = "00:00:00"
Chrono
End Sub
'Sub Compteur()
'Static S As Integer
' Do While Arret
' DoEvents
' If S <> Timer - T Then
' S = Timer - T
' [H8].Value = S
' End If
' Loop
'End Sub
Private Sub CommandButton2_Click()
' Bouton stop
ChronoEnCours = False
Pause = False
CommandButton3.Caption = "PAUSE"
Range("H8") = "00:00:00"
End Sub
Private Sub CommandButton3_Click()
' Bouton Pause
If Pause = True Then
Pause = False
CommandButton3.Caption = "PAUSE"
Depart = [now()] - Temps
ElseIf ChronoEnCours Then
Pause = True
CommandButton3.Caption = "CONTINUE"
End If
End Sub
Sub Chrono()
Do While ChronoEnCours = True
If Pause = False Then
Temps = [now()] - Depart
End If
'Range("H8") = Format(Temps, "hh:mm:ss.00")
Range("H8") = Temps
DoEvents
Loop
End Sub