Journal des modifications

Bonjour Steelson le forum

bon alors tout le monde bosse là dessus

moi pour le classement c'est ok

voilà tu rajoutes un module et tu mets (j'ai renommé le tableau Tab_1) et tu rajoutes call classer avant de réactiver les événements , chez moi cela marche très bien, j'ai classé par numéro de feuille ascendant et de la date de descendant

a+

Papou

Sub classer()
    Dim list As ListObject
    If Sheets("Journal").ListObjects("Tab_1").DataBodyRange Is Nothing Then Exit Sub
    Set list = Sheets("Journal").ListObjects("Tab_1")
    With list.DataBodyRange
        .Sort Key1:=.Columns(2), order1:=xlAscending, Key2:=.Columns(1), Order2:=xlDescending, Header:=xlYes
    End With
End Sub

Je laisse le classement comme tel, en fonction des dates.

Attention, au départ il faut ajouter

If Sheets("Journal").ListObjects(1).DataBodyRange Is Nothing Then Exit Sub

c'est très propre, bien mieux que le formulaire !

Rechercher des sujets similaires à "journal modifications"