J
justine
Guest
Hervé,
j'ai testé la macro que tu m'as proposée:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
With Sheets("feuil2")
.Range("a" & .Range("a65000").End(xlUp).Row + 1) = Target.Value
End With
End If
End Sub
et je n'arrive à la mettre en place. Lorsque je la place dans une macro et que je la compile, le débogueur me dit qu'un End Sub est attendu alors qu'il existe.
Peux tu m'éclairer?
Merci encore.
Justine
j'ai testé la macro que tu m'as proposée:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
With Sheets("feuil2")
.Range("a" & .Range("a65000").End(xlUp).Row + 1) = Target.Value
End With
End If
End Sub
et je n'arrive à la mettre en place. Lorsque je la place dans une macro et que je la compile, le débogueur me dit qu'un End Sub est attendu alors qu'il existe.
Peux tu m'éclairer?
Merci encore.
Justine