Comment insérer l'heure de saisie d'une valeur, si possible sans m

13 réponses

eric the meepmeep

15/10/2004 à 09:03

Bonjour.

Je souhaiterai que lorsque je saisis une valeur dans la case A1 par exemple
la case A2 me donne l'heure à laquelle j'ai saisi cette valeur (ou la
dernière modif au pire), et ce si possible sans macros.
Merci.

3 réponses

1 2

15/10/2004 à 11:34

Le critère de test port sur la colonne "E"
Le résultat doit être mis dans la colonne "B"

Ben si tu changes la question après chaque réponse, on va avoir du mal ...

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 5 Then Exit Sub
zz(, -2) = Now() - Int(Now())
End Sub

AV

eric the meepmeep

15/10/2004 à 11:49

Oui désolé, mais je voulais bien comprendre comment ça fonctionne, histoire
de ne pas avoir à poser de question à chaque modif de la page.

Merci beaucoup pour ton aide aisni qu'à vous tous.

Le critère de test port sur la colonne "E"
Le résultat doit être mis dans la colonne "B"

Ben si tu changes la question après chaque réponse, on va avoir du mal ...

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 5 Then Exit Sub
zz(, -2) = Now() - Int(Now())
End Sub

AV

michdenis

15/10/2004 à 14:01

Bonjour eric,

tu peux aussi remplacer ceci :

zz(, -2) = Now() - Int(Now())

Par

zz(, -2) = Format(Time, "H:mm:SS")

Salutations!

"eric the meepmeep" a écrit dans le message de
news:
Oui désolé, mais je voulais bien comprendre comment ça fonctionne, histoire
de ne pas avoir à poser de question à chaque modif de la page.

Merci beaucoup pour ton aide aisni qu'à vous tous.

Le critère de test port sur la colonne "E"
Le résultat doit être mis dans la colonne "B"

Ben si tu changes la question après chaque réponse, on va avoir du mal ...

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 5 Then Exit Sub
zz(, -2) = Now() - Int(Now())
End Sub

AV

1 2

Comment insérer l'heure de saisie d'une valeur, si possible sans m

3 réponses

Veuillez sélectionner un problème