Bonjour.
Comment reduire la taille de ces 2 macros en une.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A65535")) Is Nothing Then
Cells(Target.Row, 2).Value = Format(Date, "d mmm yyyy")
Cells(Target.Row, 6).Value = Format(Time, "hh:mm:ss")
End If
End Sub
__________________________________________________________________
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G2:G65535")) Is Nothing Then
Cells(Target.Row, 8).Value = Format(Time, "hh:mm:ss")
End If
End Sub
Merci à vous et bonne soirée