Afficher automatiquement heure de chaque saisie

Bonjour à tous. Serait-il possible qu'à chaque saisie de numéros (par entrée) s'affiche automatiquement les heures de chaque saisie dans une autre colonne ?

Actuellement je sais faire par l'appui sur un bouton en plus de la saisie mais par souci d'efficacité et de gain de temps j'aimerais que ce soit automatique et là, je ne sais pas faire.

Bonjour,

ci-joint un fichier où dés qu'il y a un changement de valeur sur la feuille1 alors l'heure s'inscrit en cellule A1 sous la forme HH:MM:SS

@ bientôt

LouReeD

Merci LouReeD. Je vais examiner ta macro. Ce que je voudrais c'est que chaque saisie ait son heure de saisie. Merci d'avance.

Ok...

on met en mémoire la valeur saisie dans la cellule

et on ré-écrit cette valeur avec l'heure à la suite

@ bientôt

LouReeD

Bonjour,

Un exemple à adapter :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim oldVal As String, newVal As String

    On Error GoTo Exit_Handler
    Application.EnableEvents = False
    newVal = Target.Text
    Application.Undo
    oldVal = Target.Text

    Target.Value = newVal
    Target.Offset(0, 1).Value = _
    "était " & oldVal & " est devenu " & newVal & " " & Format(Now, "hh-mm-ss")

Exit_Handler:
    Application.EnableEvents = True

End Sub

Merci à vous deux.

Jean-Eric, j'ai adapté ton code pour effectuer des calculs de différence d'heures suivant des cas. Par contre, à chaque changement de valeur de n'importe quelle cellule on obtient l'heure. Comment faire pour que l'heure ne s'affiche que pour la saisie sur une colonne déterminée. Quitte à faire une nouvelle macro pour chaque colonne (je n'en ait que 8 concernées) dont je désire avoir l'heure des saisies ?

Re et puis tant pis pour moi ....

en fichier joint le test sur la colonne C, la colonne F et la zone E10:E20

Zone en jaune sauf pour les colonnes je n'ai mis en jaune que le début de la colonne mais ça marche pour la colonne entière...

@ bientôt

LouReeD

Re,

Procédure événementielle sur colonne C :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oldVal As String, newVal As String

   If Not Intersect(Target, Range("C:C")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub        
        On Error GoTo Exit_Handler
        Application.EnableEvents = False
        newVal = Target.Text
        Application.Undo
        oldVal = Target.Text

        Target.Value = newVal
        Target.Offset(0, 1).Value = _
        "était " & oldVal & " est devenu " & newVal & " " & Format(Now, "hh-mm-ss")
   End If

Exit_Handler:
    Application.EnableEvents = True

End Sub

Merci à tous les deux. Je crois que c'est bon. Je vais pouvoir adapter ces macros à mon cas particulier.

Bonne fin d'année et bonne année 2015 à tous.

... heu ... où se trouve le bouton "résolu" ?