Ordre alphabétique cell avec des chiffres vba

Bonjour à tous

Un essai
http://www.cjoint.com/c/FDumckrCCkQ

Cdlmnt

Bonjour,

Les données sont tout le temps de la même longueur?

j'utilise la formule =+DROITE(GAUCHE(A101;24);3)
je cherche équivalent en code vba

Bonjour,

pour appliquer une méthode ou une autre:

Combien as tu de lignes dans ton tableau (environ) ?

Bonjour,
C'est du bricolage mais ça répondra à ta demande à condition que les chiffres soient suivis d'un espace... sinon faudra adapter un minimum la macro suivante :

Option Explicit

Sub ordre_alph()

Dim I As Variant

For I = Range("A1").End(xlDown).Row To Range("A" & Rows.Count).End(xlUp).Row
If Val(Cells(I, 1)) <> 0 Then
Cells(I, 24).NumberFormat = "@"
Cells(I, 24) = Mid(Cells(I, 1), 1, InStr(1, Cells(I, 1), " ") - 1)
Cells(I, 1) = Mid(Cells(I, 1), InStr(1, Cells(I, 1), " ") + 1, Len(Cells(I, 1)))

End If
Next I

Range(Cells(Range("A1").End(xlDown).Row, 1), Cells(Range("A" & Rows.Count).End(xlUp).Row, 1)).Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range(Cells(Range("A1").End(xlDown).Row, 1), Cells(Range("A1").End(xlDown).Row, 1)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range(Cells(Range("A1").End(xlDown).Row, 1), Cells(Range("A" & Rows.Count).End(xlUp).Row, 1))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

For I = Range("A1").End(xlDown).Row To Range("A" & Rows.Count).End(xlUp).Row
Cells(I, 1) = Cells(I, 24).Value & " " & Cells(I, 1).Value
Cells(I, 24).ClearContents
Next I

End Sub

Bonne journée