classer par ordre croissant

[nrdz83]

bonjour à tous et bonne journée , voila ma question je souhaite classer des compagnie (9,10,11,12,13) par ordre croissant et j'utilise ce code >>
Sub classerparcompagnie()
Range("A2:S" & [A65000].End(xlUp).Row).Sort Key1:=Range("N2"), Order1:=xlAscending, Key2:=Range("A3") _
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=n + 1
End Sub

Il fonctionne trés bien sauf qu'il me les classe comme ceci 10,11,12,13,9 et je voudrais classer le 9 en premier , comment dois je modifier mon code?

Ma base de données etant deja saisie je ne peux pas modier le 9 par 09 .

Merci pour vos lumières mes amitiés 😎

 

[CBernardT]

Re : classer par ordre croissant

Bonjour nrdz83 et le forum,

Essayes avec ce code :

Sub classerparcompagnie()
With Sheets("Feuil1")
Range("A2:S" & [A65000].End(xlUp).Row).Sort Key1:=Range("N2"), Order1:=xlAscending, Key2:=Range("A2"), Order2:=xlAscending
End With
End Sub

J'ai changé A3 en A2 dans le second tri.

Cordialement

Bernard

 

[nrdz83]

Re : classer par ordre croissant

merci cbernardt
🙄