[VBA] Afficher le journal des actions des utilisateurs

[Dakin Quelia]

» Afficher le journal des actions des utilisateurs

Ce petit code vous permet d'afficher les actions des utilisateurs qui sont enregistrées dans la feuille Excel.

Code : Tout sélectionner

' Afficher le journal des actions
Sub AfficherJournalActions()
	Dim ws As Worksheet

    ' Initialisation les variables
    Set ws = ThisWorkbook.Sheets("Log")
    Set rg = ws.Range("A2:B65000")
    
    ' On affiche les données de l'onglet "Log"
    With Historique
        .ColumnCount = 2
        .ColumnHeads = True
        .ColumnWidths = "60;40"
        .RowSource = rg.Address
        .Locked = True
    End With
End Sub

Pour l'utiliser, rien de très compliqué :

Code : Tout sélectionner

' Afficher le journal des actions
AfficherJournalActions()

Vous pouvez l'utiliser, par exemple, dans une fenêtre.