Discussion :

[manu f]

Bonjour,

Comment puis-je trier par ordre croissant une feuille excel selon une colonne (colonne 10) mais sans trier les 2 premières ligne ?

J'ai essayé plusieurs chose, mais à chaque fois les 2 premières ligne son trié et surtout l'ordre croissant n'est pas forcément respecté.

Un exemple sur le fait que l'ordre croissant n'est pas respecté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
100_Soft Drinks
100_Soft Drinks
11_Droguerie
11_Droguerie
12_Parfumerie HygiËne
12_Parfumerie HygiËne
12_Parfumerie HygiËne
...

En gros il considère 100... comme 10 :/

Au niveau du code voilà ce que j'ai trouvé mais ça fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    Worksheets(2).Range("J3").Sort _
    Key1:=Worksheets(2).Range("J3"), _
    Order1:=xlAscending, Header:=xlGuess

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim LastLig As Long
With Sheets(2)
   LastLig = .Cells(Rows.Count, "J").End(xlUp).Row
   If LastLig > 3 Then .Range("A3:X" & LastLig).Sort key1:=.Range("J3"), Order1:=xlAscending, header:=xlNo
End With

les données sont du texte et c'est normal que 100A soit avant 11X

[manu f]

Merci pour ta réponse mais ça tri seulement la colonne J et étant donné que j'ai besoin (du moins j'espère avoir compris le besoin) de trier toute la feuille (selon la colonne J), j'ai finis par trouver un truc comme ça qui me semble fonctionné :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    nombreLigne = Worksheets(2).Cells(Cells.Rows.Count, 2).End(xlUp).Row
    nombreColonne = Worksheets(2).Cells(1, 1).End(xlToRight).Column
 
    Worksheets(2).Range(Worksheets(2).Cells(3, 1), Worksheets(2).Cells(nombreLigne, nombreColonne)).Sort Range("J3"), xlAscending

Mon code doit pas être top mais je dois avouer que je ne connais pas du tout le vba et ca m'est tombé dessus trop rapidement pour que je puisse me pencher sur cette techno dans le détail

[mercatog]

J'avais réedité mon post.
Travaille avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
with sheets(2)
...
end with

attention quand même, il te faut définir header à xlno

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

header:=xlno

comme dans ma proposition