Verrouiller des cellules après entrée de données

Bonjour,

J'ai créé une tableau de pointage de temps passé sur des travaux. Le principe est le suivant : la personne "x" sélectionne son nom sur un menu déroulant ce qui génère automatiquement l'heure de début dans une cellule adjacente. Ensuite elle fait la même opération ce qui génère l'heure de fin.

J'ai donc créé une cellule de référence avec : " MAINTENANT()" puis des cellules à conditions pour l'affichage de cette cellule si tel ou tel nom est rentré, mais mon problème est que lorsque, par exemple, on modifie une cellule, toutes les autres changent d'heure et se mettent à "MAINTENANT()".

Comment faire pour bloquer des cellules une fois qu'elles ont été modifiées.

Merci d'avance

PS je suis sous excel 2003

Bonsoir et bienvenue

Merci de joindre ton fichier

Amicalement

Nad

Bonjour,

Je n'avais pas le fichier sous la main donc j'en ai refait un autre.

Merci de ton aide.

Amicalement,

Bonjour à tous,

Une solution

Sub Début()
Dim Lg%
    Lg = ActiveCell.Row
    If Lg > 3 And Cells(Lg, 5) = "" Then
        Cells(Lg, 4) = Now
        Cells(Lg, 5).ClearContents
    End If
End Sub
Sub Fin()
Dim Lg%
    Lg = ActiveCell.Row
    If Lg > 3 And Cells(Lg, 4) <> "" And Cells(Lg, 5) = "" Then
        Cells(Lg, 5) = Now
    End If
End Sub

Amicalement

Claude

Merci beaucoup Claude ça marche super bien sauf que je sais pas comment

Comme je suis assez cartésien je vais chercher

merci encore

amicalement

linou

re,

Explication codes macros

Lg = ActiveCell.Row => ligne de la cellule active

Cells(Lg, 4) = Now

le 4 signifie la 4ème colonne de la ligne Lg (active)

Now signifie MAINTENANT()

Amicalement

Claude.