Trier par ordre alphabétique

Bonjour

je souhaiterais la fonction qui me permettrait de trier un contenu par ordre alphabétique

j'ai le code suivant

Sheets("Listing").Select

z = Range("A2: F100")

Sheets("Contacts").Select

Range("A2: F100") = z

Que dois je rajouter pour effectuer le tri par rapport aux données de la colonne A

Merci d'avance!

Salut le forum

Tu utilises l'enregistreur de macro, tu regardes le code et tu adaptes.

Et tu marques [Résolu] sans dire pourquoi, comme les autres ficelles avec ton Pseudo

Mytå

j'ai essayer de rectifier

j'ai essayer de répondre

le code est le suivant pour mon exemple!

je transporte un contenu d'une feuille à une autre en triant par ordre alphabétique!

Sub affichage()

Sheets("Listing").Select

Z = Range("A2: F100")

Sheets("Contacts").Select

Range("A2: F100") = Z

Range("A2:F100").Select

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Salut le forum

Avec la balise [ code ] la macro un adaptée.

Sub affichage()
Sheets("Listing").Range("A2:F100").Copy Sheets("Contacts").Range("A2")
  With Sheets("Contacts")
    .Select
    .Range("A2:F100").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
  End With
End Sub

Mytå