Bonjour,
Pour l'ajout de lignes ... je laisse tomber ... désolé.
L'action sur plusieurs feuilles ...
Place ce code dans "ThisWorkbook" ...
Le log va fonctionner sur toutes les feuilles ... sauf la feuille "log" bien sûr.
Dim PreviousValue
Dim x As Long
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not StrComp(Sh.Name, "log", vbTextCompare) Then Exit Sub
If Target.Count > 1 Then Exit Sub
With Sheets("log").Cells(Rows.Count, 1).End(xlUp)
''' .Offset(1, 0).Value = Application.UserName & " a modifie la cellule "
.Offset(1, 0).Value = Environ("UserName") & " a modifier la cellule "
.Offset(1, 1).Value = Target.Address
.Offset(1, 2).Value = " de la page " & ActiveSheet.Name & " ... de "
.Offset(1, 3).Value = PreviousValue
.Offset(1, 4).Value = " en "
.Offset(1, 5).Value = Target.Value
.Offset(1, 6).Value = " À:_ " & Format(Time, "hh:mm:ss") & " le:_ " & Format(Date, "dd/mm/yy")
End With
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "log" Then Exit Sub
PreviousValue = Target.Value
End Sub
ric