XL 2013 Insert une date au moment de la saisie

[Ste20]

Bonjour, je viens demander une aide concernant un code VB. J'aimerais qu'une date s insère au moment ou je saisie la colonne speudo dans une Col. + 1. un fichier exemple.

Sub Worsheet_Change(ByVal Target As Range)
    If Not Intersect(Range("C3:C200"), Target) Is Nothing And Target.Count = 1 Then
        Application.EnableEvents = False
               Target.Offset(0, 1) = Now
        Application.EnableEvents = True
    End If
End Sub

 

[Ste20]

Resolu : Insert une date au moment de la saisie

Bonjour, je viens demander une aide concernant un code VB. J'aimerais qu'une date s insère au moment ou je saisie la colonne speudo dans une Col. + 1. un fichier exemple.

Private Sub Worsheet_Change(ByVal Target As Range)
    If Not Intersect(Range("C3:C200"), Target) Is Nothing And Target.Count = 1 Then
        Application.EnableEvents = False
               Target.Offset(0, 1) = Now
        Application.EnableEvents = True
    End If
End Sub

J avais la réponse ds la question