History

Bonjour,

I have this code that logs all my cell changes but I would like to log only column L
Can someone help me?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim col As Range
Set col = Columns("L")
If Not Intersect(Target, col) Is Nothing Then
Target.Offset(1, 0).Select
celaddress = Target.Address
colonne = Target.Column
UserForm1.Show
Target.Offset(1, 0).Select
End If
End Sub
Sub test_UserName()
Dim Nom As String
Nom = Environ("USERNAME")
MsgBox Nom
End Sub

Private Sub WorkSheet_Change(ByVal Target As Range)

If Target.Count <> 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Column = 12 Then
r = Target.Address & ")" & Date & " - " & Target.Value & " - " & Environ("username")
With Worksheets("historiques")
dl = .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(dl, 1) <> r Then .Cells(dl + 1, 1) = r
End With
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells(1, 9).Value = ActiveCell.Value

End Sub