Insertion automatique de la date a chaque nouvelle ligne

Bonjour,

Je souhaite que dans mon tableau a chaque nouvelle ligne, la date puisse être insérée dans la colonne Date.

Les photos parle plus que les mots.

Je continue d'utiliser mon tableau donc une nouvelle ligne :

Donc la subtilité arrive maintenant j'appuie sur entrée.

Une nouvelle ligne apparaît dans mon tableau et ce que je cherche à faire c'est que l'insertion de la date et de l'heure( a l'instant T bien sur) dans la colonne prévue à cet effet soit automatique au moment de l'agrandissement du tableau.

je ne sais pas si je me suis bien fait comprendre. En tout cas je cherche à bricoler une formule depuis 3 heures après avoir cru y arriver je ne trouve toujours pas.

Merci d'avance pour votre aide

Cordialement

Bonjour,

Ta demande nécessite une procédure évènementielle (VBA).

Merci de joindre un fichier à ta demande.

Cdlt.

j'ai Créer un exemple qui reprend les même cellule.

Merci beaucoup.

Re,

Une proposition à étudier.

Option Explicit

Dim lo As ListObject

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Target.ListObject Is Nothing And Target.Count = 1 Then
        Set lo = Target.ListObject
        With lo
            If Target.Column - .HeaderRowRange.Column + 1 = 1 Then
                Target.Offset(, 1).Select
            End If
        End With
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr As ListRow
    If Not Target.ListObject Is Nothing And Target.Count = 1 Then
        Set lo = Target.ListObject
        With lo
            If Target.Column - .HeaderRowRange.Column + 1 > 1 Then
                Set lr = .ListRows(Target.Row - .HeaderRowRange.Row)
                If IsEmpty(lr.Range.Cells(1, 1)) Then lr.Range.Cells(1, 1).Value = VBA.Now
            End If
        End With
    End If
End Sub

Re Jean-Eric oui à première vue tout a l'air de fonctionner correctement

je vais essayer de déchiffrer se code afin de le comprendre merci ^^

Cordialement,