Mettre une date selon condition d'une cellule

[BAILAOR]

bonjour,

je souhaiterais mettre la date du jour dans une cellule si une autre cellule est modifié
ex :
en A1 j'ai une liste de choix : En service, volé,suspendu, perdu
de base c'est "en service" qui est affiché
j'aimerais qu'en A2 l'on affiche la date du jour si A1 est modifié

merci

 

[Jack2]

Re : Mettre une date selon condition d'une cellule

Bonjour BAILAOR,

Code à mettre dans la feuille qui contient la cellule A1 :

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Count > 1) Or (Target.Address <> "$A$1") Then Exit Sub
Range("A2").Value = Date
Range("A1").Select
End Sub

A+ Jack2

 

[BAILAOR]

Re : Mettre une date selon condition d'une cellule

merci pour la réponse mais je suis novice, je dois le mettre où dans la feuille?

 

[Jack2]

Re : Mettre une date selon condition d'une cellule

Bonsoir BAILAOR,
Ci-joint un fichier avec quelques explications.
Bonne nuit,
Jack2

 

[BAILAOR]

Re : Mettre une date selon condition d'une cellule

désolé mais j'ai oublié de vous dire qu'il y a plusieurs case
cela va de la D15 à la D1146 et les dates sont de G15 à G1146

 

[Jack2]

Re : Mettre une date selon condition d'une cellule

Bonjour BAILAOR,

Si j'ai bien compris, la saisie se fait entre D15 et D1146 et les dates en G (lignes correspondantes)
Le fichier est dans le Post de 2h32
A+ Jack2