Faire un tri alphabétique en VBA

Bonjour,

j'ai fait un code pour trier en ordre alphabétique les noms d'équipes...j'ai un erreur dans mon code et je ne trouve pas la raison???

pouvez vous m'aider

merci :-)

Bonjour,

Voir fichier joint. J'ai ajouté un bouton "Trier" qui appelle la macro que tu as commencé. J'ai mis ton code en commentaire.

merci pour la réponse mais ca ne fonctionne pas...est-il possible également que je puisse faire cela sans bouton donc automatiquement?

Merci

Bonjour,
Une autre proposition !?
Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TD As Range

    Set TD = Me.Range("Téquipes")

    If TD.ListObject.DataBodyRange Is Nothing = False Then
        If Not Intersect(Target, TD.ListObject.DataBodyRange) Is Nothing And Target.CountLarge = 1 Then
            With TD.ListObject.Sort
                .SortFields.Clear
                .SortFields.Add Key:=TD(0, 1)
                .Header = xlYes
                .Apply
            End With
        End If
    End If

End Sub

Bonjour à tous,

Le code suivant (à placer dans le module de la feuille "ÉQUIPES") doit trier le tableau structuré Téquipes selon la colonne équipes :

Sub trierAZ()
   With Me.ListObjects("Téquipes")
      .Range.Sort key1:=.ListColumns("équipes").Range(1, 1), order1:=xlAscending, Header:=xlYes
   End With
End Sub

merci beaucoup pour vos réponses c'est tres gentil :-)