Triage a 1 niveau automatique

Bonjour,

Je n'arrive pas a adapter ce code pour trier le tableau automatiquement par la colonne « C »en ordre croissant.

Sub TriageÀUnNiveau()

Worksheets("DATABASE").Sort.SortFields.Clear

Range("A1000000").End(xlUp).Row.Sort Key1:=Range("C3"), Header:=xlYes

End Sub

En vous remerciant par avance pour votre aide.

@+

Bonjour,
Essaie ainsi :

Sub TriageAUnNiveau()
Dim lo As ListObject
    Set lo = Worksheets("DATABASE").ListObjects(1)
    With lo.Sort
        .SortFields.Clear
        .SortFields.Add Key:=lo.ListColumns(3).DataBodyRange
        .Header = xlYes
        .Apply
    End With
End Sub

Bonjour Jean-Eric,

j'ai mis le code dans l'USF, hélas, le tableau ne se range pas dans l'ordre croissant par la colonne C.

Merci pour votre soutien,

@+

Bonjour,
Voir module SortData, et fonctionnement lors de l'initialisation et la fermeture du l'userform.
Cdlt.

Bonjour Jean-Eric

Tout fonctionne correctement, merci !

Est il possible d'appliquer aussi cette méthode également directement sur le tableau Excel en automatique ?

@+