Comment insérer l'heure de saisie d'une valeur, si possible sans m
13 réponses
eric the meepmeep
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.
Bonjour Formule en A2 =SI(A1<>"";TEXTE(MAINTENANT();"jj/mm/aa hh:mm");"") Cordialement Pascal
"eric the meepmeep" a écrit dans le message de news:
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.
eric the meepmeep
Merci, désolé pour le double post mais ça mettait un message d'erreur Par contre si demain je réouvre le fichier ce seront bien les dates d'aujourd'hui qui seront conservées ?
Bonjour Formule en A2 =SI(A1<>"";TEXTE(MAINTENANT();"jj/mm/aa hh:mm");"") Cordialement Pascal
"eric the meepmeep" a écrit dans le message de news:
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.
Merci, désolé pour le double post mais ça mettait un message d'erreur
Par contre si demain je réouvre le fichier ce seront bien les dates
d'aujourd'hui qui seront conservées ?
Bonjour
Formule en A2
=SI(A1<>"";TEXTE(MAINTENANT();"jj/mm/aa hh:mm");"")
Cordialement
Pascal
"eric the meepmeep" <ericthemeepmeep@discussions.microsoft.com> a écrit dans
le message de news:DCD100A0-7626-431F-84CB-041C541ED521@microsoft.com...
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.
Merci, désolé pour le double post mais ça mettait un message d'erreur Par contre si demain je réouvre le fichier ce seront bien les dates d'aujourd'hui qui seront conservées ?
Bonjour Formule en A2 =SI(A1<>"";TEXTE(MAINTENANT();"jj/mm/aa hh:mm");"") Cordialement Pascal
"eric the meepmeep" a écrit dans le message de news:
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.
eric the meepmeep
En fait ça ne fonctionne pas correctement. Car par exemple si en A2 je rajoute une nouvelle valeur, ça change toutes les valeurs par la date et l'heure actuelle, alors que je voudrais garder l'heure de saisie pour chaque valeur...
Bonjour Formule en A2 =SI(A1<>"";TEXTE(MAINTENANT();"jj/mm/aa hh:mm");"") Cordialement Pascal
"eric the meepmeep" a écrit dans le message de news:
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.
En fait ça ne fonctionne pas correctement.
Car par exemple si en A2 je rajoute une nouvelle valeur, ça change toutes
les valeurs par la date et l'heure actuelle, alors que je voudrais garder
l'heure de saisie pour chaque valeur...
Bonjour
Formule en A2
=SI(A1<>"";TEXTE(MAINTENANT();"jj/mm/aa hh:mm");"")
Cordialement
Pascal
"eric the meepmeep" <ericthemeepmeep@discussions.microsoft.com> a écrit dans
le message de news:DCD100A0-7626-431F-84CB-041C541ED521@microsoft.com...
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.
En fait ça ne fonctionne pas correctement. Car par exemple si en A2 je rajoute une nouvelle valeur, ça change toutes les valeurs par la date et l'heure actuelle, alors que je voudrais garder l'heure de saisie pour chaque valeur...
Bonjour Formule en A2 =SI(A1<>"";TEXTE(MAINTENANT();"jj/mm/aa hh:mm");"") Cordialement Pascal
"eric the meepmeep" a écrit dans le message de news:
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.
J'y connais rien en macros, est-ce que vous pourriez pas m'en expliquer une vite fait, ou m'en filer une toute faite que je puisse modifier éventuellement ? Merci
..et ce si possible sans macros.
Non, ça ne l'est pas !
AV
J'y connais rien en macros, est-ce que vous pourriez pas m'en expliquer une
vite fait, ou m'en filer une toute faite que je puisse modifier
éventuellement ?
Merci
J'y connais rien en macros, est-ce que vous pourriez pas m'en expliquer une vite fait, ou m'en filer une toute faite que je puisse modifier éventuellement ? Merci
J'y connais rien en macros, est-ce que vous pourriez pas m'en expliquer une vite fait, ou m'en filer une toute faite que je puisse modifier éventuellement ?
Pour avoir, en A2, l'heure d'une quelconque saisie en A1 Avec la cellule A2 au format "hh:mm:ss" Clic droit sur l'onglet de la feuille > visualiser le code > copier/coller le code suivant :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub [A2] = Now() - Int(Now()) End Sub
AV
J'y connais rien en macros, est-ce que vous pourriez pas m'en expliquer une
vite fait, ou m'en filer une toute faite que je puisse modifier
éventuellement ?
Pour avoir, en A2, l'heure d'une quelconque saisie en A1
Avec la cellule A2 au format "hh:mm:ss"
Clic droit sur l'onglet de la feuille > visualiser le code > copier/coller le
code suivant :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
[A2] = Now() - Int(Now())
End Sub
J'y connais rien en macros, est-ce que vous pourriez pas m'en expliquer une vite fait, ou m'en filer une toute faite que je puisse modifier éventuellement ?
Pour avoir, en A2, l'heure d'une quelconque saisie en A1 Avec la cellule A2 au format "hh:mm:ss" Clic droit sur l'onglet de la feuille > visualiser le code > copier/coller le code suivant :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub [A2] = Now() - Int(Now()) End Sub
AV
eric the meepmeep
Cool ça marche. Bon dernier soucis, il faudrait que ça le fasse pour chaque ligne maintenant, si je rajoute une valeur en A3, que ça me mette la date/heure en B3 en A4 > B4 etc...
En tout cas merci beaucoup pour ce que vous avez déjà fait (y)
J'y connais rien en macros, est-ce que vous pourriez pas m'en expliquer une vite fait, ou m'en filer une toute faite que je puisse modifier éventuellement ?
Pour avoir, en A2, l'heure d'une quelconque saisie en A1 Avec la cellule A2 au format "hh:mm:ss" Clic droit sur l'onglet de la feuille > visualiser le code > copier/coller le code suivant :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub [A2] = Now() - Int(Now()) End Sub
AV
Cool ça marche.
Bon dernier soucis, il faudrait que ça le fasse pour chaque ligne
maintenant, si je rajoute une valeur en A3, que ça me mette la date/heure en
B3
en A4 > B4 etc...
En tout cas merci beaucoup pour ce que vous avez déjà fait (y)
J'y connais rien en macros, est-ce que vous pourriez pas m'en expliquer une
vite fait, ou m'en filer une toute faite que je puisse modifier
éventuellement ?
Pour avoir, en A2, l'heure d'une quelconque saisie en A1
Avec la cellule A2 au format "hh:mm:ss"
Clic droit sur l'onglet de la feuille > visualiser le code > copier/coller le
code suivant :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
[A2] = Now() - Int(Now())
End Sub
Cool ça marche. Bon dernier soucis, il faudrait que ça le fasse pour chaque ligne maintenant, si je rajoute une valeur en A3, que ça me mette la date/heure en B3 en A4 > B4 etc...
En tout cas merci beaucoup pour ce que vous avez déjà fait (y)
J'y connais rien en macros, est-ce que vous pourriez pas m'en expliquer une vite fait, ou m'en filer une toute faite que je puisse modifier éventuellement ?
Pour avoir, en A2, l'heure d'une quelconque saisie en A1 Avec la cellule A2 au format "hh:mm:ss" Clic droit sur l'onglet de la feuille > visualiser le code > copier/coller le code suivant :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub [A2] = Now() - Int(Now()) End Sub
AV
AV
Avec la colonne B au format "hh:mm:ss" Dans le module de la feuille (voir message précédent pour la manip) :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Column <> 1 Then Exit Sub zz(, 2) = Now() - Int(Now()) End Sub
AV
Avec la colonne B au format "hh:mm:ss"
Dans le module de la feuille (voir message précédent pour la manip) :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 1 Then Exit Sub
zz(, 2) = Now() - Int(Now())
End Sub
Avec la colonne B au format "hh:mm:ss" Dans le module de la feuille (voir message précédent pour la manip) :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Column <> 1 Then Exit Sub zz(, 2) = Now() - Int(Now()) End Sub
AV
eric the meepmeep
Heu, pourquoi ça ne fonctionne pas ? Ca n'affiche rien ? C'est peut-être parce que j'ai pas pigé un truc. Quand tu mets zz.column <> 1 c'est pour la 1ère colonne. Par exemple si tu veux la colonne E tu mets zz(, 5) ?
Le critère de test port sur la colonne "E" Le résultat doit être mis dans la colonne "B"
La première formule pour 1 seule case fonctionne, la seconde non :"(
Avec la colonne B au format "hh:mm:ss" Dans le module de la feuille (voir message précédent pour la manip) :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Column <> 1 Then Exit Sub zz(, 2) = Now() - Int(Now()) End Sub
AV
Heu, pourquoi ça ne fonctionne pas ? Ca n'affiche rien ?
C'est peut-être parce que j'ai pas pigé un truc.
Quand tu mets zz.column <> 1 c'est pour la 1ère colonne. Par exemple si tu
veux la colonne E tu mets zz(, 5) ?
Le critère de test port sur la colonne "E"
Le résultat doit être mis dans la colonne "B"
La première formule pour 1 seule case fonctionne, la seconde non :"(
Avec la colonne B au format "hh:mm:ss"
Dans le module de la feuille (voir message précédent pour la manip) :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 1 Then Exit Sub
zz(, 2) = Now() - Int(Now())
End Sub
Heu, pourquoi ça ne fonctionne pas ? Ca n'affiche rien ? C'est peut-être parce que j'ai pas pigé un truc. Quand tu mets zz.column <> 1 c'est pour la 1ère colonne. Par exemple si tu veux la colonne E tu mets zz(, 5) ?
Le critère de test port sur la colonne "E" Le résultat doit être mis dans la colonne "B"
La première formule pour 1 seule case fonctionne, la seconde non :"(
Avec la colonne B au format "hh:mm:ss" Dans le module de la feuille (voir message précédent pour la manip) :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Column <> 1 Then Exit Sub zz(, 2) = Now() - Int(Now()) End Sub
