Figer une date dans excel
Résolu
nathan01983
Messages postés
30
Date d'inscription
Statut
Membre
Dernière intervention
-
nathan01983 Messages postés 30 Date d'inscription Statut Membre Dernière intervention -
nathan01983 Messages postés 30 Date d'inscription Statut Membre Dernière intervention -
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/
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
-
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
-
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
