Definir La date et l’heure à la saisie

[ⵄⵍⵉ]

Je souhaite obtenir de l'aide pour mettre en place si cela est possible un système permettant d'indiquer l'heure et la date automatiquement lorsque je saisi des données dans une cellule au memont ou je entre dans une autre cellule

 

[Dranreb]

Bonjour.
Comment ça, au moment où vous entrez dans une autre cellule ? Pas en faisant simplement Entrée sur celle venant d'être saisie ? (À supposer qu'il n'y ait pas de déplacement automatique de la sélection après validation)
Sans cette contrainte c'est assez simple avec une Private Sub Worksheet_Change(ByVal Target As Range) dans le module de l'objet Worksheet qui représente la feuille
genre Intersect(Columns("A"), Target.EntireRow).Value = Now

 

[la fifine]

bonsoir a tous
je fais un petit retour rapide sur le site
bon pour la question de ......?
une solution avec l'enregistrement de la date et de lheure dans la celulle modifée sous forme de commentaire
http://boisgontierjacques.free.fr/fichiers/Commentaires/CmtDateHeure.xls

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Comment Is Nothing Then
    Target.AddComment
    Target.Comment.Text Text:=CStr(Now) & Chr(10) & Environ("username") & Chr(10)
    lg = Len(Target.Comment.Text)
    With Target.Comment.Shape.TextFrame
      .Characters(Start:=1, Length:=lg).Font.Name = "Verdana"
      .Characters(Start:=1, Length:=lg).Font.Size = 8
      .Characters(Start:=1, Length:=lg).Font.Bold = True
      .Characters(Start:=1, Length:=lg).Font.Italic = True
      .Characters(Start:=1, Length:=lg).Font.ColorIndex = 3
      .Characters(Start:=lg, Length:=99).Font.Bold = False
      .Characters(Start:=lg, Length:=99).Font.Italic = False
      .Characters(Start:=lg, Length:=99).Font.ColorIndex = 1
    End With
    SendKeys "m"
  Else
    SendKeys "m"
  End If
End Sub