Tri A->Z cellules A5:A500

Bonsoir,

J'aimerais à l'aide d'une macro faire le tri en ordre alphabétique des mes références se situant dans les cellules comprises entre A5:A500.

J'ai déjà créer une macro, mais au niveau de A12, elle ne veut plus trier...

Quelle macro utiliser ?!

Merci d'avance.

Bonsoir,

Sans fichier, une proposition à étudier (à partir d'Excel 2007).

Dans VBA faire F1 sur 'Sort" pour accéder à l'aide.

Cdlt

Option Explicit
Sub Test_tri()
Dim sht As Worksheet
Dim dl As Long
Dim rng As Range
Dim srt As Sort
10  Application.ScreenUpdating = False
20  Set sht = ActiveSheet
30  dl = sht.Range("A" & Rows.Count).End(xlUp).Row
40  Set rng = sht.Range("A1:A" & dl)
50  Set srt = sht.Sort
60  srt.SortFields.Clear
70  srt.SortFields.Add Key:=Columns("A"), _
                       SortOn:=xlSortOnValues, Order:=xlAscending
80  srt.SetRange rng
90  srt.Header = xlYes
100 srt.MatchCase = True
110 srt.Apply
120 Set sht = Nothing: Set rng = Nothing: Set srt = Nothing
End Sub

Bonjour,

La macro que vous m'avez envoyée fonctionne bien, cependant, elle n'étend pas le tri,

Je souhaite trier par ordre alphabétique les références de mes clients, et, quand elles se trient, je veux que les noms, adresses... Suivent la ligne ...

Que faut-il corriger pour que la macro fonctionne avec étendu du tri ?

Bonjour

remplacer le A par la lettre de la dernière colonne à prendre en compte dans le tri

Set rng = sht.Range("A1:A" & dl)

Ca fonctionne à merveille!!!

Merci à vous deux