Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel afficher une heure de saisie

afficher une heure de saisie

10 réponses
Avatar
fred_naizin
Bonjour,
dans la cellule B1 par exemple, je voudrai que l'heure s'affiche dès que je
saisie quelque chose en A1: la formule ressemblerai-t-elle à celle-ci:
=Si(A1<>0;aujourdhui;" ")

je vous remercie d'avance
cordialement, fred
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
Avatar
Jacky
Bonjour Fred

Peut-être que

=SI(A1<>"";MAINTENANT();"")
Au format hh:mm

Salutations
JJ

"fred_naizin" a écrit dans le message
de news:
Bonjour,
dans la cellule B1 par exemple, je voudrai que l'heure s'affiche dès que
je

saisie quelque chose en A1: la formule ressemblerai-t-elle à celle-ci:
=Si(A1<>0;aujourdhui;" ")

je vous remercie d'avance
cordialement, fred


Avatar
Bruno LOUIS
Salut Fred,

Une petite précision : En B1, doit-on stocker l'heure à laquelle l'info en
A1 a été saisie ou doit-on inscrire l'heure ainsi que son défilement en
temps réel ?

1°) Heure correspondant au moment ou la saisie a été faite :
' A saisir dans le module attaché à la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Range("A1") <> 0 Then _
Range("B1") = Format(Now, "HH:MM:SS")
End Sub

2°)Inscrire l'heure et la faire défiler
= Si(A1<>0;Maintenant();" ")
en précisant dans le format de cellule le format d'affichage de l'heure
A chaque recalcul, l'heure évoluera.

Salutations

"fred_naizin" a écrit dans le message
de news:
Bonjour,
dans la cellule B1 par exemple, je voudrai que l'heure s'affiche dès que
je
saisie quelque chose en A1: la formule ressemblerai-t-elle à celle-ci:
=Si(A1<>0;aujourdhui;" ")

je vous remercie d'avance
cordialement, fred


Avatar
Jacquouille
Bonjour
=SI(A1<>"";MAINTENANT();"")
devrait faire l'affaire, mais fais gaffe car ce maintenant a la réputation
de changer à chaque ouverture du classeur.
Bonne chance
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"fred_naizin" a écrit dans le message
de news:
Bonjour,
dans la cellule B1 par exemple, je voudrai que l'heure s'affiche dès que
je
saisie quelque chose en A1: la formule ressemblerai-t-elle à celle-ci:
=Si(A1<>0;aujourdhui;" ")

je vous remercie d'avance
cordialement, fred


Avatar
fred_naizin
Bonjour et merci à tous.

j'ais testé avec succès la formule suivante:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Range("A1") <> 0 Then _
Range("B1") = Format(Now, "HH:MM:SS")
End Sub

Mais comment indique-t-on un range pour la colonne entière: si saisie
A1:A100 alors calcul de l'heure de B1:B100?

je vous remercie d'avance
cordialement
fred


Salut Fred,

Une petite précision : En B1, doit-on stocker l'heure à laquelle l'info en
A1 a été saisie ou doit-on inscrire l'heure ainsi que son défilement en
temps réel ?

1°) Heure correspondant au moment ou la saisie a été faite :
' A saisir dans le module attaché à la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Range("A1") <> 0 Then _
Range("B1") = Format(Now, "HH:MM:SS")
End Sub

2°)Inscrire l'heure et la faire défiler
= Si(A1<>0;Maintenant();" ")
en précisant dans le format de cellule le format d'affichage de l'heure
A chaque recalcul, l'heure évoluera.

Salutations

"fred_naizin" a écrit dans le message
de news:
Bonjour,
dans la cellule B1 par exemple, je voudrai que l'heure s'affiche dès que
je
saisie quelque chose en A1: la formule ressemblerai-t-elle à celle-ci:
=Si(A1<>0;aujourdhui;" ")

je vous remercie d'avance
cordialement, fred







Avatar
AV
Private Sub Worksheet_Change(ByVal zz As Range)
If Not Intersect(zz, [A1:A100]) Is Nothing Then _
cells(zz.Row, "B") = Format(Now, "HH:MM:SS")
End Sub

AV
Avatar
eric.menegain
Si tu tape aujourdhui tu n'aura que la date. Pour obtenir l'heure en plus
tape "=si(a1<>"";maintenant();"")
"fred_naizin" a écrit dans le message
news:
Bonjour,
dans la cellule B1 par exemple, je voudrai que l'heure s'affiche dès que
je

saisie quelque chose en A1: la formule ressemblerai-t-elle à celle-ci:
=Si(A1<>0;aujourdhui;" ")

je vous remercie d'avance
cordialement, fred


Avatar
fred_naizin
Bonjour et merci de vos réponse.
La formule de "AV" fonctionne très bien mais j'ais une dernière question:
peut-on appliquer cette formule à une autre colonne? J'ais essayé ce qui suit
mais sans succès; nil s'affiche "00:00:00" dans la cellule de la colonne C au
lieu de m'afficher le résultat dans la colonne E:

Private Sub Worksheet_Change(ByVal zz As Range)
If Not Intersect(zz, [A2:A100]) Is Nothing Then _
Cells(zz.Row, "d") = Format(Now, "HH:MM:SS")
End Sub
-------------------------------------------------------------
Private Sub Worksheet_Change2(ByVal yy As Range)
If Not Intersect(yy, [c2:c100]) Is Nothing Then _
Cells(yy.Row, "e") = Format(Now, "HH:MM:SS")
End Sub

Je vous remercie en core pour votre aide
cordialement
fred




Private Sub Worksheet_Change(ByVal zz As Range)
If Not Intersect(zz, [A1:A100]) Is Nothing Then _
cells(zz.Row, "B") = Format(Now, "HH:MM:SS")
End Sub

AV





Avatar
AV
Ma réponse
Private Sub Worksheet_Change(ByVal zz As Range)
If Not Intersect(zz, [A1:A100]) Is Nothing Then _
cells(zz.Row, "B") = Format(Now, "HH:MM:SS")
End Sub

correspond à ta question initiale :
"......... si saisie A1:A100 alors calcul de l'heure de B1:B100?"

si la question devient :
"......... si saisie A1:A100 alors calcul de l'heure de E1:E100?"

La réponse devient :
Private Sub Worksheet_Change(ByVal zz As Range)
If Not Intersect(zz, [A1:A100]) Is Nothing Then _
cells(zz.Row, "E") = Format(Now, "HH:MM:SS")
End Sub

AV


"fred_naizin" a écrit dans le message
news:
Bonjour et merci de vos réponse.
La formule de "AV" fonctionne très bien mais j'ais une dernière question:
peut-on appliquer cette formule à une autre colonne? J'ais essayé ce qui suit
mais sans succès; nil s'affiche "00:00:00" dans la cellule de la colonne C au
lieu de m'afficher le résultat dans la colonne E:

Private Sub Worksheet_Change(ByVal zz As Range)
If Not Intersect(zz, [A2:A100]) Is Nothing Then _
Cells(zz.Row, "d") = Format(Now, "HH:MM:SS")
End Sub
-------------------------------------------------------------
Private Sub Worksheet_Change2(ByVal yy As Range)
If Not Intersect(yy, [c2:c100]) Is Nothing Then _
Cells(yy.Row, "e") = Format(Now, "HH:MM:SS")
End Sub

Je vous remercie en core pour votre aide
cordialement
fred




Private Sub Worksheet_Change(ByVal zz As Range)
If Not Intersect(zz, [A1:A100]) Is Nothing Then _
cells(zz.Row, "B") = Format(Now, "HH:MM:SS")
End Sub

AV







Avatar
fred_naizin
Bonjour et merci de ta réponse.
Toutefois, je me suis mal exprimé:
la première partie est a conserver et fonctionne. Mais je voudrai aussi que
la saisie en colonne C affiche l'heure en colonne E. Et c'est cette 2ème
fonction qui ne fonctionne pas et affiche 00:00:00 dans la cellule de la
colonne C où je saisis

merci encore

fred


Ma réponse
Private Sub Worksheet_Change(ByVal zz As Range)
If Not Intersect(zz, [A1:A100]) Is Nothing Then _
cells(zz.Row, "B") = Format(Now, "HH:MM:SS")
End Sub

correspond à ta question initiale :
"......... si saisie A1:A100 alors calcul de l'heure de B1:B100?"

si la question devient :
"......... si saisie A1:A100 alors calcul de l'heure de E1:E100?"

La réponse devient :
Private Sub Worksheet_Change(ByVal zz As Range)
If Not Intersect(zz, [A1:A100]) Is Nothing Then _
cells(zz.Row, "E") = Format(Now, "HH:MM:SS")
End Sub

AV


"fred_naizin" a écrit dans le message
news:
Bonjour et merci de vos réponse.
La formule de "AV" fonctionne très bien mais j'ais une dernière question:
peut-on appliquer cette formule à une autre colonne? J'ais essayé ce qui suit
mais sans succès; nil s'affiche "00:00:00" dans la cellule de la colonne C au
lieu de m'afficher le résultat dans la colonne E:

Private Sub Worksheet_Change(ByVal zz As Range)
If Not Intersect(zz, [A2:A100]) Is Nothing Then _
Cells(zz.Row, "d") = Format(Now, "HH:MM:SS")
End Sub
-------------------------------------------------------------
Private Sub Worksheet_Change2(ByVal yy As Range)
If Not Intersect(yy, [c2:c100]) Is Nothing Then _
Cells(yy.Row, "e") = Format(Now, "HH:MM:SS")
End Sub

Je vous remercie en core pour votre aide
cordialement
fred




Private Sub Worksheet_Change(ByVal zz As Range)
If Not Intersect(zz, [A1:A100]) Is Nothing Then _
cells(zz.Row, "B") = Format(Now, "HH:MM:SS")
End Sub

AV












Avatar
AV
la première partie est a conserver et fonctionne. Mais je voudrai aussi que
la saisie en colonne C affiche l'heure en colonne E.


Private Sub Worksheet_Change(ByVal zz As Range)
If Not Intersect(zz, [A1:A100]) Is Nothing Then _
Cells(zz.Row, "B") = Format(Now, "hh:mm:ss")
If Not Intersect(zz, [C1:C100]) Is Nothing Then _
Cells(zz.Row, "E") = Format(Now, "hh:mm:ss")
End Sub

AV