Trier ligne

[supermax]

Bonsoir à tous
Tout d'abord je remercie ce site qui m'a bcp apporté !!!
Malheureusement je ne trouve pas de solution à mon problème.
Dans le fichier ci joint, je voudrais effectué un triage de la façon suivante : 25T001, 50T001, 50T003, 80T004, 125T005, R1, R2, R3, etc
Mon problème est que le code que j'utilise effectue le trie de la manière suivante : 125T005, 25T001, R1, R10, R2, etc
Merci d'avance de vos réponses.

 

[BOISGONTIER]

Re : Trier ligne

Bonsoir,

Voir PJ

  [b:b].Insert
  For Each c In Range([A4], [a65000].End(xlUp))
   If Val(c) <> 0 Then
    c.Offset(0, 1) = Val(c)
   Else
     c.Offset(0, 1) = c
   End If
  Next c
  Range("A4").CurrentRegion.Select
  Selection.Offset(1).Resize(Selection.Rows.Count - 1).Select
  Selection.Sort Key1:=[B4], Header:=xlNo
  [b:b].Delete

JB
Formation Excel VBA JB