Date automatique selon changement de statut précis

Résolu/Fermé
juer31
Messages postés
98
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
28 mai 2019
- 6 janv. 2016 à 16:19
juer31
Messages postés
98
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
28 mai 2019
- 6 janv. 2016 à 18:22
Bonjour,


J'ai plusieurs statut possible en A1 (Envoyée, Approuvée, Refusée ...) et je voudrais que en F1 la date se mettre automatiquement lorsque le statut est "Envoyée" et ne change pas lors de la modification de statut. Présentement j'ai ça:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A12:A100]) Is Nothing Then
If Target(1, 6) = "" Then Target(1, 6) = Now
End If
End Sub

La date s'insert peut importe le statut. Qu'est-ce que je dois ajouté pour corrigé.

Merci

1 réponse

Zoul67
Messages postés
1954
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
3 février 2022
147
6 janv. 2016 à 16:34
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A12:A100]) Is Nothing Then
If Target(1, 6) = "" And Target.Value = "Envoyée" Then Target(1, 6) = Now
End If
End Sub


A+
0
juer31
Messages postés
98
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
28 mai 2019
6
6 janv. 2016 à 18:22
Merci beaucoup! c'est trèes apprécier
0