Bonjour rahimpamelo
Oui c'est possible voici une première solution qui trace toutes les modifications sur toutes les feuilles du classeur (sauf la feuille LOG à créer évidement) à mettre dans le module ThisWorkBook
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim wsLog As Object
Dim ligDeb
If Not (Sh.Name = "LOG") Then
Application.EnableEvents = False
Set wsLog = Worksheets("LOG")
With wsLog
On Error GoTo errLog
ligDeb = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(ligDeb, 1) = Date
.Cells(ligDeb, 2) = Time
.Cells(ligDeb, 3) = Sh.Name
.Cells(ligDeb, 4) = Target.Address
.Cells(ligDeb, 5) = Target.Value
.Cells(ligDeb, 6) = IIf(Target.HasFormula, Target.Formula, "")
End With
errLog:
On Error GoTo 0
Set wsLog = Nothing
Application.EnableEvents = True
End If
End Sub
mais cette solution ne me parait pas être une bonne idée / selon ta version LOG va sans doute être vite saturé !
Une autre idée (plus appropriée) serait de faire un fichier texte (.TXT) ...
Mais quel est le vrai but de cette "surveillance" car cela peut éventuellement conditionner la manière de faire !