Date et heure lors de la saisie d'une Cellule

Bonjour à tous,

Je débute dans le VBA depuis quelques semaines.

J'aimerais que lorsque je saisie une cellule, la date et l'heure de saisie s'affiche à côté de celle-ci et se change si je modifie la cellule.

J'ai fait un exemple en E6. Lorsque je remplie la cellule E6, la date s'affiche bien à droite. Par contre quand je modifie la cellule, l'heure ne change pas

Autre problème, cela fonctionne pour toute la colonne E puisque je n'arrive pas à indiquer dans la macro qu'elle soit appliquée uniquement à E6.

Avez-vous une solution ?

Je vous remercie.

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("E6")) Is Nothing And Target.Count = 1 Then
        Target.Offset(0, 1) = Now
    End If
End Sub

Bonjour,

essaie ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("E:E"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Now
            Rng.Offset(0, xOffsetColumn).NumberFormat = "dd.mm.yyyy hh:mm:ss"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub

Merci à vous 2

cela fonctionne