Date automatique selon changement de statut précis

Résolu/Fermé

juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 - 6 janv. 2016 à 16:19
juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 - 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

A voir également:

Date automatique selon changement de statut précis
Piratage facebook changer mot de passe - Guide
Message automatique thunderbird - Guide
Réponse automatique outlook - Guide
Changement d'écriture - Guide
Statut hors ligne instagram - Guide

1 réponse

Réponse 1 / 1

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
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+

juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 6
6 janv. 2016 à 18:22

Merci beaucoup! c'est trèes apprécier

Discussions similaires

Prélèvement JM Jacquie et Michel date.

Problème Whatsapp - "La date est incorrecte"

Pix

Discussions similaires

Newsletters