Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("B1") = Range("A1").Value
End Sub
Bonjour à tous,
Peux-tu essayer avec :
A placer dans le code de la feuilleCode:Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range("B1") = [COLOR="Red"]Range("A1").Value[/COLOR]End Sub
[
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel
For Each cel In Target
With cel
If .Row > 1 And .Column = 1 Then
With .EntireRow
If .Cells(1, 1) <> "" Then .Cells(1, 2) = Format(Now, "dd/mm/yyyy hh:mm:ss")
End With
End If
End With
Next cel
End Sub