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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
"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
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
"VIRATELLE Gilles" <vg00@free.fr> a écrit dans le message de news:mn.99e37d466644b381.11998@free.fr...
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
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
"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