Figer une date dans excel

Résolu
nathan01983 -  
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/

2 réponses

  1.  Mike-31
    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
    0
    1. nathan01983 Auteur
      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
      0