Date automatique selon changement de statut précis Résolu/Fermé

Question

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

Zoul67 · Answer

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+

Date automatique selon changement de statut précis

1 réponse

Discussions similaires