Tri Auto

Bonjour forum, je vient soliciter votre aide sur un probleme que je n'arrive pas a resoudre.

J'ai besoin de faire un tri croissant automatique sur une colonne de ma feuille de calcule.

Je veut qu'a chaque fois j'ajoute les donnees dans une cellule de la colonne en question que sa trie sa automatiquement.

Merci pour votre aide.

Bonjour

Joins ton fichier et on te proposera quelque chose.

Bye !

Bonjour,

Un exemple à étudier.

Cdlt.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
    Set rng = Me.ListObjects(1).ListColumns(3).DataBodyRange
    If Not Intersect(Target, rng) Is Nothing Then
        With Me.ListObjects(1)
            .Sort.SortFields.Add Key:=rng, _
                                 SortOn:=xlSortOnValues, _
                                 Order:=xlAscending, _
                                 DataOption:=xlSortNormal
            .Sort.Apply
            .Sort.SortFields.Clear
        End With
    End If
End Sub