Figer une date dans excel Résolu/Fermé

Question

Bonjour
Dans mon tableau en colonne C j'entre la formule =SI(B6<>"";AUJOURDHUI();"")
Je voudrai que cette date reste figer lors des prochaines ouverture du fichier.
La formule est vrai sur toutes les lignes de la colonne C 
Je vous joint mon fichier.

Merci. 

https://mon-partage.fr/f/wX3vsrFA/

Mike-31 · Answer

Bonjour,

par formule, impossible de figer la date, soit tu la saisis manuellement à la limite en cliquant en même temps sur Ctrl et ; (le point virgule) ou avec un code VBA si tu as quelques connaissances

nathan01983 · Answer

Voici la sotution qu'on m'a apportée 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B6:B89")) Is Nothing Then
  If Target.Value <> "" Then
    Cells(Target.Row, 3).Value = Date
  Else
    Cells(Target.Row, 3).Value = ""
  End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Set vtarget = Intersect(Target, Columns(2))
If Not (vtarget Is Nothing) Then
For Each varea In vtarget
For Each vcell In varea
If Not (IsEmpty(vcell.Value)) Then
If vcell.Row > 5 Then
Range("C" & vcell.Row).Value = Now
End If
Else
Range("C" & vcell.Row).ClearContents
End If
Next
Next
End If
Application.EnableEvents = True
End Sub

Figer une date dans excel

2 réponses

Discussions similaires