OVH Cloud OVH Cloud

Heure et date de saisie

1 réponse
Avatar
VIRATELLE Gilles
Bonjour,
En saisissant A1 je cherche a avoir date en B1 et heure de saisie en C1
Effacement de B1 et C1 si A1 vide ou 0
Si la formule peut se recopier c'est mieux car j'ai ceci à faire sur 20
cellule d'une colonne mais en deux parties
A vous lire
Gilles

1 réponse

Avatar
Philippe.R
Bonjour Gilles,
en b1 :
=SI(A1=0;"";AUJOURDHUI())
en c1 :
=SI(A1=0;"";TEXTE(HEURE(MAINTENANT());"00")&":"&TEXTE(MINUTE(MAINTENANT());"00"))
devraient convenir si tu ne tiens pas à conserver les données car les fonctions =AUJOURDHUI() et
=MAINTENANT() sont volatiles
Sinon, il faut passer par VBA, avec par exemple, pour a1, dans le module de feuille

Private Sub Worksheet_Change(ByVal Target As Range)
Application.Calculation = xlCalculationManual
If Not Intersect(Target, Range("a1")) Is Nothing Then
If [a1] = 0 Then
[b1] = ""
[c1] = ""
Exit Sub
Else
[b1] = Date
[c1] = Format(Now, "hh:mm")
Exit Sub
End If
Application.Calculation = xlCalculationAutomatic
Else
Exit Sub
End If
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"VIRATELLE Gilles" a écrit dans le message de news:
Bonjour,
En saisissant A1 je cherche a avoir date en B1 et heure de saisie en C1
Effacement de B1 et C1 si A1 vide ou 0
Si la formule peut se recopier c'est mieux car j'ai ceci à faire sur 20
cellule d'une colonne mais en deux parties
A vous lire
Gilles