=SI(ESTNUM(A2);AUJOURDHUI();"")
Private Sub Worksheet_Change(ByVal Target As Range)
If IsDate(Target) Then
Application.EnableEvents = False
Target(1, 2) = Now
Application.EnableEvents = True
End If
End Sub
Ex en A2 je saisi une date et en B2 apparaît la formule =aujourdhui()
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
If IsDate(Target) Then
[B2].Formula = "=TODAY()"
ActiveWindow.DisplayFormulas = True 'à voir...
End If
End Sub
C'est exact du premier janvier au 28 février 1900.(…)
Pour Excel, une date, c'est une valeur numérique. le jour 1 correspond au premier janvier 1900. (…)
Je sais que vous savez, mais…Salut Roger,
Par rapport à la question posée, j'ai préféré éluder ce souci (que je connais) afin de ne pas encombrer ma réponse.
Ce pourquoi j'enfonce le clou, sans plus d'espoir.Peut-être qu'un jour, un gars de chez Krosoft lira nos posts et qu'il trouvera une solution (permis de rêver...).