Horodatage en fin de ligne lorsqu'une cellule de la même ligne est modifiée

Bonjour,

Je n'ai pas trouvé de solution à mon problème dans les divers sujets consultés, donc je me permets de poser la question dans un nouveau sujet.

J'ai une macro assez simple qui fonctionne plutôt bien actuellement qui me permet d'avoir la date du jour en colonne AF sitôt que quelqu'un met un "1" dans une des colonnes entre O et Z sur la même ligne:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect([O:Z], Target) Is Nothing And Target = 1 Then
        Range("AF" & Target.Row) = Date
    ElseIf Not Intersect([O:Z], Target) Is Nothing And Target <> 1 Then
        Range("AF" & Target.Row) = ""
    End If
    Application.EnableEvents = True

End Sub

Cependant, nous devons changer la façon de faire et avoir des commentaires désormais. Aussi, j'aimerais pouvoir adapter ce code pour obtenir en AF la date du jour sitôt qu'une modification est apportée dans l'une des cellules des colonnes O à Z, que ce soit un 1 ou du texte. Et donc, lorsqu'une des cellules se voit modifiée, la date du jour écrase la précédente date.

D'avance merci pour votre aide

Bonjour Dams, bonjour le forum,

Essaie comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("O:Z"), Target) Is Nothing Then
    Cells(Target.Row, "AF").Value = Date
End If
End Sub

Salut ThauThème,

C'est simple, concis, clair, et surtout ça fonctionne !

Merci beaucoup et bon après-midi !