R
rick
Guest
bonjour, j'aimerais que lorsque je rentre un nom dans une cellule celui-ci aille placer le nom dans une liste.
merci
merci
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Columns(1)) Is Nothing Then
Range('a' & Range('a65536').End(xlUp).Row + 1) = Target.Value
End If
End Sub
Option Explicit
Private KeepInMemory As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = 'A1' Then
KeepInMemory = Target.Value
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CurrentCell As Range
Set CurrentCell = Me.Range('B' & Me.Range('B500').End(xlUp).Row + 1)
If KeepInMemory <> '' Then
If KeepInMemory <> CurrentCell.Offset(-1, 0) Then CurrentCell = KeepInMemory
End If
End Sub