XL 2016 Automatisation de la mise à jour de la date en fonction de l'état de la colonne F

[telemarrk]

Bonsoir,

Mon objectif est d'insérer la date actuelle dans les cellules de la colonne G lorsque la colonne F n'est pas vide.
De plus, je souhaite que la date reste inchangée, par exemple, si je sélectionne "Validé" ou "Refusé" en F5, la cellule G5 doit afficher la date du jour, et lorsque j'ouvre le fichier le lendemain, la date doit être celle de la veille.


Merci

 

[sylvanu]

Bonsoir Telemark,
Un essai en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [Tableau1[Statuts]]) Is Nothing Then
         If Target <> "" Then Cells(Target.Row, 1 + Target.Column) = Date
    End If
End Sub

La date est écrite en dur et ne bougera pas.

 

[telemarrk]

Bonjour sylvanu,

Je m'excuse pour le retard, votre code est fonctionnel. Toutefois, serait-il possible de figer les dates dans la colonne G ?

Si je modifie l'état de "Validé" à "Refusé" dans la cellule F4, cela entraînera automatiquement une modification de la date dans la cellule G4.

Cependant, je n'ai pas l'intention de modifier la date.


merci

 

[sylvanu]

Bonjour Telemarrk,
Pas sur d'avoir compris.
Est ce que cela veut dire qu'une fois une date validée, celle ci ne plus jamais bouger même si on modifie la cellule en F ?
Donc la date serait "gravée" une fois pour toute. Si oui, alors voir PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [Tableau1[Statuts]]) Is Nothing Then
         If Target <> "" And Cells(Target.Row, 1 + Target.Column) = "" Then Cells(Target.Row, 1 + Target.Column) = Date
    End If
End Sub

 

[telemarrk]

Tu as bien compris, cela fonctionne

Merci