Limiter "Worksheet_Change(ByVal sel As Range)" à une seule colonne

Bonjour, et bonne année.

Je ne suis pas un utilisateur assidu du vba, en général je cherche sur le web et j'adapte en tâtonnant pas mal. Ma question est certainement très basique.

Actuellement j'utilise une macro événementielle pour "surveiller" les modifications dans une ligne et y ajouter le username dans la colonne B et la date de modification dans la colonne Q de la même ligne. Hors cela m'arrangerait de limiter cette "surveillance" à la colonne A.

Est-ce que quelqu'un pourrait m'orienter ?

Bonne journée.

Private Sub Worksheet_Change(ByVal sel As Range)

 Application.EnableEvents = False

    Cells(sel.Row, "Q").Value = Date + Time
    Cells(sel.Row, "B").Value = Application.UserName

 Application.EnableEvents = True

End Sub

bonsoir,

une façon de faire.

Private Sub Worksheet_Change(ByVal sel As Range)
    If sel.Count > 1 Then Exit Sub
    If Intersect(sel, Range("A:A")) Is Nothing Then Exit Sub
    Application.EnableEvents = False

    Cells(sel.Row, "Q").Value = Date + Time
    Cells(sel.Row, "B").Value = Application.UserName

    Application.EnableEvents = True

End Sub

Bonjour,

Et une autre !?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.CountLarge = 1 And Not IsEmpty(Target) Then
        With Target
            .Offset(, 1).Value = Application.UserName
            .Offset(, 16).Value = Now
        End With
    End If
End Sub