XL 2016 Limiter zone action d'un bouton de commande

[Ellipso]

Bonjour,
Je m’adresse à vous car mes connaissances en macros et VBA sont limitées et parce que je n’ai pas réussi à trouver des réponses satisfaisantes sur le Web.
Je dois créer un fichier de suivi d’activité pour une évaluation.
Principe : pour chaque activité, on clique sur le bouton « Saisie » en début et en fin et l’heure remplace le mot. (Voir fichier joint)
Mes problèmes :
- Je n’arrive pas à limiter l’action du bouton aux seules cases Début et Fin,
- Je voudrais que la cellule incrémentée se verrouille après le clic sur le bouton,
- Je voudrais que le temps consacré aux activités se cumule automatiquement en bas de chaque colonne.
L’évaluation se déroulera sur une longue période et les activités changent de place chaque semaine.
Il faudrait donc que le tableau soit reproductible sans trop avoir à modifier la programmation
Merci par avance pour votre aide

 

[patricktoulon]

re
bonjour
pas tres bien compris si c'est dans les carrés au dessus des debut/fin ou si c'est les debut/fin eux mêmes dans les quels tu veux inscrire l'heur
si c'est les carrés

Private Sub Saisie_Click()
    With ActiveCell
        If .Offset(1) = "Début" Then
            .NumberFormat = "HH:MM"
            .Value = Time
        End If
    End With
End Sub

si c'est les debut/fin

Private Sub Saisie_Click()
    With ActiveCell
        If .Value = "Début" Or .Value = "Fin" Then
            .NumberFormat = "HH:MM"
            .Value = Time
        End If
    End With
End Sub

 

[Ellipso]

Bonjour,

Merci patricktoulon de ta réponse.
C'est les "début/fin" qui sont concernés et ta proposition répond bien à mon besoin.
Quelques retouches à mon document et ça va rouler !