Horodater les événements (ajout de code-barre)

Bonjour à tous,

Je fais appel à votre sagesse pour résoudre un problème d'insertion automatique d'une date dans la colonne F a chaque insertion de code barre

par contre j'ai un message d'erreur et j'ai pas pu le résoudre

Private Sub WorkSheet_Change(ByVal Target As Range)
Dim LObj As ListObject, Lig As Long
If Target.Column = 5 Then
Cells(Target.Row, 2) = Now
End If
End Sub

veuillez trouver ci-joint le fichier

merci d'avance

bien cordialement.

mot de passe:1993

Bonjour,

Cela ne fonctionne pas car la feuille est protégée.

ric

Private Sub WorkSheet_Change(ByVal Target As Range)
     If Target.Column = 5 Then Cells(Target.Row, 2) = Now
End Sub

bonjour,

si le if ... then ... est sur une ligne il ne faut pas un "end if", donc il manquait cette ligne oubien la solution ici en haut

Bonjour à tous,

Selon le fichier exemple, la date et l'heure devraient s'écrire sur la colonne 6 ...

If Target.Column = 5 Then Cells(Target.Row, 6) = Now

ric

Bonjour à tous,

À partir du fichier exemple : une proposition pour la feuille protégée ...

Private Sub WorkSheet_Change(ByVal Target As Range)
Dim LObj As ListObject, Lig As Long

ActiveSheet.Unprotect "1993"
If Target.Column = 5 Then Cells(Target.Row, 6) = Now
ActiveSheet.Protect "1993", True, True
End Sub

ric

Merci beaucoup eric

Bonjour,

ric