Ajouter date et heure de l’opération dans chaque cellule

bonjour

j'ai un petit tableau, et je désire que l'horaire s'ajoute automatiquement dans les cellules d'une colonne quand je termine la saisie sur la ligne ..

un petit fichier est joint pour mieux expliquer..

je vous remercie poue les services que vous rendez aux débutants comme moi

Bonjour,

Un essai ....

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Dlig As Integer

    Dlig = Cells(Rows.Count, "G").End(xlUp).Row
    If Not Intersect(Target, Range("J3:J" & Dlig)) Is Nothing Then
        If Target.Value = "OUI" Then
            Target.Offset(0, -2) = CDate(Now)
        Else
            Target.Offset(0, -2).ClearContents
        End If
    End If
End Sub

Bonjour,

Bonjour Ric,

Un peu confus !...

Les données sont sous forme de tableau.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lo As ListObject, blnCol As Boolean
    If Not Target.ListObject Is Nothing And Target.Count = 1 Then
        Set lo = Target.ListObject
        blnCol = CBool(Target.Column - lo.HeaderRowRange.Column + 1 = 4)
        If blnCol And LCase$(Target.Value) = "oui" And IsEmpty(Target.Offset(, -2)) Then
            Target.Offset(, -2).Value = VBA.Now()
        End If
    End If
End Sub

Géniaaaaal..

merci pour la réponse et merci pour sa rapidité...