Creation bouton pour afficahge heure actuelle

Bonjour,

Je souhaiterai mettre en place des suivis d'étapes. un petit exemple en pièce jointe :

En appuyant sur un bouton "Début Etape 1", l'heure actuelle s'affiche en case C4

En appuyant sur un bouton "Fin Etape 1", l'heure actuelle s'affiche en case C7

Si possible, en retranchant un temps de pause entre les deux horaires.

En appuyant sur un bouton "Début Pause", l'heure actuelle s'affiche en case C5

En appuyant sur un bouton "Fin Pause", l'heure actuelle s'affiche en case C6

Et un calcul se fait entre tous ces horaires pour en déterminer la durée effective. (Durée d'étape en retranchant le temps de pause)

Merci

Bonjour,

Un petit exemple, concerne seulement l'étape 1 quand

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim HeureActuelle As Date
Dim LigneEtape1 As Byte

HeureActuelle = Format(Now, "hh:mm")

For LigneEtape1 = 4 To 7    'Pour les lignes 4 a 7
If Not Intersect(Target, Range("B" & LigneEtape1)) Is Nothing Then  'Si on selectionne la cellule sur la colonne C suivant ligne Etape 1
    Range("C" & LigneEtape1) = HeureActuelle
    GoTo FinModif
End If
Next LigneEtape1    'Ligne suivante
FinModif:
End Sub

Pour la durée de l'étape, il y a juste a mettre

=C7-C6+C5-C4

A+

merci bcp pour ce retour mais est ce possible avec des boutons ?

Oui, mon cerveau a zappé la consigne.

J'ai vu la boulette apres avoir posté.

Un Userform qui s'affiche ou l'on selectionne l'étape dans une fenetre deroulante puis on selectionne ce que l'on veut pointer et on valide ça le fait ?

merci encore mais je souhaiterai un bouton

A droite Un bouton par ligne, chaque bouton inscrit l'heure dans la colonne K suivant la ligne ou se site le bouton.

Le code ressemble à ça ou DE = Debut d'étape / DP = Début Pause / FP = Fin Pause / FE = Fin Etape

Private Sub DE1_Click()         'DEBUT ETAPE 1
HeureActuelle = Format(Now, "hh:mm")
Range("K4") = HeureActuelle
End Sub

Ce qu'il y a gauche c'est ce que javais commencé a faire dans mon dernier message (juste pour information)