Log suivi de modifications du classeur

Macro pour faire une log des actions faites par les gens dans un classeur (pour faire du suivi)

• Code simple:

  • 'Macro pour faire une log des actions dans le classeur
    'Nécessite une feuille appelée "Log"
    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        If Sh.Name = "Log" Then Exit Sub
        Dim cell As Range
        For Each cell In Target
            With Sheets("Log").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5)
                .Value = Array(Sh.Name, cell.Address(0, 0), cell.Value, Now, Application.UserName)
            End With
        Next cell
    End Sub

• Autre ressource: VBA-Log​