-Pointer sur la cellule à droite de la tâche
-Bouton démarrer
-Bouton Arrêt
Public départ, fin
Sub demarre()
If ActiveCell.Column = 2 And Cells(ActiveCell.Row, 1) <> ""
Then
départ = Timer
ancien = ActiveCell * 24 * 3600
c = ActiveCell.Address
fin = False
Do While Not fin
Range(c) = Format((Timer + ancien - départ)
/ 3600 / 24, "hh:mm:ss")
DoEvents
Loop
End If
End Sub
Sub arret()
fin = True
End Sub
Sub raz()
[B2:B8].ClearContents
End Sub