Bouton pour comptabiliser du temps

[ManonMBS]

Bonjour à tous,
Je ne m'y connais pas du tout en macro. J'aimerai créer des boutons qui permettent de comptabiliser du temps (une sorte de pointeuse).
Si je clique sur un bouton, et que je re-clique dessus il faut que ça m'affiche le temps passé (si le bouton pouvait changer de couleur en fonction de s'il est activé ou non ça serait génial)

Quelqu'un a une petite idée ?

 

[Dranreb]

Re : Bouton pour comptabiliser du temps

Le code suivant écrit dans le module objet associé à une feuille : …

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Or Target.Columns.Count <> 1 Or Target.Rows.Count <> 1 Then Exit Sub
If IsEmpty(Target.Value) Then
   Target.NumberFormat = "dd/mm/yyyy hh:mm:ss"
   Target.Value = Now
Else
   With Target.Offset(, 1)
      .NumberFormat = "[h]:mm:ss"
      .Value = .Value + Now - Target.Value
      End With
   Target.Value = Empty
   End If
Target.Offset(, 1).Select
End Sub

… réagirait à la sélection d'une cellule de la colonne 1.
Si elle est vide elle y inscrit la date et l'heure, sinon elle additionne à la cellule à sa droite le temps écoulé depuis l'heure inscrite, qu'elle efface.
Elle sélectionne enfin la cellule à sa droite.