Date automatique selon changement de statut précis
Résolu
juer31
Messages postés
120
Statut
Membre
-
juer31 Messages postés 120 Statut Membre -
juer31 Messages postés 120 Statut Membre -
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
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
A voir également:
- Date automatique selon changement de statut précis
- Logiciel de sauvegarde automatique gratuit - Guide
- Changer de dns - Guide
- Réponse automatique thunderbird - Guide
- Réponse automatique gmail - Guide
- Changement d'heure - Guide
1 réponse
Bonjour,
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) = "" And Target.Value = "Envoyée" Then Target(1, 6) = Now End If End Sub
A+
juer31
Messages postés
120
Statut
Membre
6
Merci beaucoup! c'est trèes apprécier
