Date de validation automatisée

Bonjour,

Je ne sais pas coder en VBA c'est pourquoi je cherche à savoir si il est possible, grace à une formule, de mettre la date de rendu d'un produit. Je voudrais en effet, en mettant un "o" dans la colonne "Rendu?" que l'on affiche la date actuelle automatiquement dans la colonne "Date de rendu". Est-ce possible sans que la date ne change tous les jours ?

Merci d'avance

Bonjour,

un essai à tester voir si cela te conviens.

Cordialement.

Bonjour,

ALT F11 pour ouvrir l'éditeur VBE

Voir module Sheet1 (Prep).

Cdlt

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
    Set rng = ActiveSheet.ListObjects(1).ListColumns(8).DataBodyRange
    If Not Intersect(Target, rng) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Select Case Target.Value
            Case Is = "n"
                Target.Offset(, 2) = vbNullString
            Case Is = "o"
                Target.Offset(, 2) = Date
        End Select
    End If
    Set rng = Nothing
End Sub

Merci beaucoups pour vos réponses !