Microsoft 365 VBA tri chiffres et chiffres avec lettres

[de_hanstrapp]

Bonjour à tous,

Je cherche à trier un colonne qui est composée de chiffres et de chiffres avec une lettre.
Ex : 5010 ; 5011 ; 5012 ; 5012A ; 5012B etc.

Voici mon code :
Sub Tri_codeP()
'
' Tri_codeP Macro
'

'
Application.ScreenUpdating = False
Range("B8:L145").Select
ActiveWorkbook.Worksheets("JOURNAL PRODUITS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("JOURNAL PRODUITS").Sort.SortFields.Add Key:=Range( _
"E8:E145"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("JOURNAL PRODUITS").Sort
.SetRange Range("B7:L145")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
Range("B8").Select
End Sub

Mon soucis est que le tri avec les chiffres + lettre se retrouvent en bas de colonne alors que la valeur du chiffre est inférieur à certaines autres données.

Quelqu'un a t il une idée/astuce pour améliorer mon code ? J'ai essayé avec l’enregistreur de macros... en vain...

Merci par avance.

Naspg

 

[Hasco]

Bonjour,

Séparer chiffres et lettres (Données/Convertir/largeur Fixe) en deux colonnes et trier sur les deux niveaux.

cordialement

 

[de_hanstrapp]

Bonjour Roblochon,

Merci pour votre retour.
Je voudrais éviter de modifier la structure du fichier.

N'est il pas possible de faire un tri avec deux critères ?

Nsapg

 

[sylvanu]

Bonjour Nsapg,Roblochon,
En 'trichant" un peu un essai en PJ.
Par contre :
1- J'utilise de façon temporaire la colonne A
2- Je ne tri que sur les nombres pas sur les lettres.