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

telemarrk

XLDnaute Occasionnel
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
 

Pièces jointes

  • Date.xlsm
    10.5 KB · Affichages: 2
Solution
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 :
VB:
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

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Telemark,
Un essai en PJ avec :
VB:
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.
 

Pièces jointes

  • Date.xlsm
    15.4 KB · Affichages: 4

telemarrk

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
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
 

Pièces jointes

  • Date.xlsm
    15.5 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
313 283
Messages
2 096 809
Membres
106 751
dernier inscrit
Souleymani