Inscription TERMINÉ lors de saisie d"une date

[aubelix]

Bonjour à tous les amis du Forum.

Je reviens vers vous pour le problème ci-dessous :
Comment écrire "TERMINÉ" dans la cellule -1 lors de saisie de date.
Voir fichier joint.

Par avance merci pour votre aide.
Cordialement.

 

[mromain]

Re : Inscription TERMINÉ lors de saisie d"une date

bonjour aubelix, voici un code à mettre sur la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
'si ce n'est pas la colonne "M" qui a été modifier, quitter la macro
If Not Target.Column = 13 Then Exit Sub
'si on n'a pas saisi une date dans la colonne "M", quitter la macro
If Not IsDate(Target.Value) Then Exit Sub
'écrire "TERMINÉ" sur la cellule de gauche
Target.Offset(0, -1).Value = "TERMINÉ"
End Sub

a+

 

[aubelix]

Re : Inscription TERMINÉ lors de saisie d"une date

Bonjour MRomain.

Merci pour ta réponse.
Cela me convient et fonctionne parfaitement.
Cordialement.