Date figée

[stephane]

Bonsoir toutes les exceliennes et tous les exceliens,

J'ai besoin de vos lumieres:

Je mets dans une cellule la date du jour " =AUJOURDHUI() "
Mais je voudrais figer la date.

Si j'ouvre le fichier le lendemain la date reste celle d'hier .

L'utilité pour moi est de garder la date d'enregistrement de données.

Faut-il passer par une macro ??

Merci beaucoup.

Stéphane.

 

[Jean-Marie]

Bonsoir

Voici un lien sur un fil http://www.excel-downloads.com/html/French/forum/messages/1_109464_109464.htm

@+Jean-Marie

 

[stephane]

Bonsoir Jean-Marie,

Merci

Grâce au lien j'ai trouvé cette macro (ci-dessous), très bien mais moi je veux vraiment figé la date, c'est à dire si je reviens dans la cellule c.. la date en cellule b.. ne change absoluement pas..

" Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("c4:c371")) Is Nothing Then: Exit Sub
If Target = "" Then
Target.Offset(0, -1) = ""
Else
Target.Offset(0, -1) = Now
End If
End Sub "

Merci.

 

[serge]

salut
et si tu fait l'inverse
peut-être un truc du style

" Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("c4:c371")) Is Nothing Then: Exit Sub

if Target.Offset(0, -1) <> "" then exit sub

If Target = "" Then
Target.Offset(0, -1) = Now
end if

End Sub "

serge

 

[serge]

plutot cela

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("c4:c371")) Is Nothing Then: Exit Sub

If Target.Offset(0, -1) <> "" Then Exit Sub

If Target = "" Then
Target.Offset(0, -1) = ""
Else
Target.Offset(0, -1) = Now
End If


End Sub

serge

 

[stephane]

Bonsoir serge,

ca a l'air de fonctionner.
Merci beaucoup.
Stéphane