Sub tri_4()
Bonjour,
le code ci-dessous me sert à trier une base de donnée sur la colonne A.
cependant, cette colonne étant composée de nombre entre 1 et 999 parfois complété de lettre :
5 ; 150B ; 100A ; 405Q ; 300 ; 405...
hors j'ai besoin d'un rangement "numerique" du type :
5 ; 100A ; 150B ; 300 ; 405 ; 405Q ...
Mais pour l'instant c'est plutot :
5 ; 300 ; 405 ; 100A ; 150B ; 405Q...
Bref, comment peut-on modifier ce code afin d'obtenir un TRI "dans l'ordre" ?
Range("A2:AZ999").Select
ActiveWorkbook.Sheets("base de donnée MBC").Sort.SortFields.Clear
ActiveWorkbook.Sheets("base de donnée MBC").Sort.SortFields.Add _
Key:=Range("A2:A999"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Sheets("base de donnée MBC").Sort
.SetRange Range("A2:AZ999")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub