Discussion :

[tro2blabla]

bonjour,
j'ai un petit soucis pour le tri de ma feuille excel.
Je souhaiterai faire un tri croissant (en cliquant sur un bouton)
sur toutes les colonnes.


par exemple voilà ce que j'ai :

------A------B------C
1---Nom--Num--extension
2 --- aa --- 8 --- txt
3 --- af --- 1 --- xls
4 --- aa --- 7 --- txt
5 --- ab --- 3 --- txt
6 --- aa --- 7 --- xls

et voilà ce que je voudrais :

------ A ------ B ------ C
1 ---Nom -- Num -- extension
2 ---aa --- 7 --- txt
3 ---aa --- 7 --- xls
4 ---aa --- 8 --- txt
5 ---ab --- 3 --- txt
6 ---af --- 1 --- xls


sachant que j'ai des entêtes de colonnes, le code suivant ne marche pas :

Code :

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

1
2
3
4
5
6
 
Sub SortRange1()
Worksheets("Feuil1").Range("A1:C20").Sort _
Key1:=Worksheets("Feuil1").Range("A1"), _
Key2:=Worksheets("Feuil1").Range("B1")
End Sub

De même pour ce code, ça ne marche pas :

Code :

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

1
2
3
4
 
Sub tri()
Application.Range("A2:A25").SortSpecial SortMethod:=XlSortOrientation.xlSortColumns
End Sub

[linda15975]

Etape n°1: http://club.developpez.com/regles/

[tro2blabla]

Etape n°1: http://club.developpez.com/regles/

ok etape n°2 ! ?

[linda15975]

et les balises codes, c'est pour les pingouins?

[tro2blabla]

et les balises codes, c'est pour les pingouins?

c'est mieux comme ça, c'est plus lisible,mais est-ce que kelkun peut m'aider?!! merci

[linda15975]

tu dis que le code ne marche pas, mais que fait-il? y a t-il une erreur, si oui laquelle?
Car j'ai mis exactement ton code chez moi et ya pas de problème, le tri se fait bien.

Pour le code, je demandais pas un arc en ciel juste que tu mettes ton code entre les balises code, symbolisée par un # dans la fenêtre d'édition des messages

[tro2blabla]

sur ma feuille excel, le code ne tri que sur le colonne A et les autres colonnes ne bougent pas

[linda15975]

écoute, j'aime pas trop les couleurs, j'ai l'impression que tu m'eng*****.
j'ai essayé le sortrange1 et toutes mes colonnes sont triées, donc je vois pas quoi te dire

[ouskel'n'or]

On voit que nous sommes en fin d'année scolaire, les résultats sont médiocres alors on s'énerve, on s'énerve...
Du calme les pingoins !
Et puis moi, d'abord, j'aime bien les couleurs
Ce code sélectionne toutes les cellules (= Ctrl + A en manuel)

Code :

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

1
2
3
 
    Cells.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Attention "Header:=xlYes" si tu as un entête
Range("A2") si, donc, tu commences le tri à la ligne 2 selon la colonne A
et donc, à modifier si ton tri doit se faire sur une autre colonne ou sur une feuille sans entête

Tu dis

A+

[tro2blabla]

Code :

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

1
2
3
 
    Cells.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Attention "Header:=xlYes" si tu as un entête
Range("A2") si, donc, tu commences le tri à la ligne 2 selon la colonne A
et donc, à modifier si ton tri doit se faire sur une autre colonne ou sur une feuille sans entête

La solution marche bien sauf que je souaiterai commencer le tri à partir de la ligne 3 mais ça ne marche pas !!!

Code :

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

1
2
Cells.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

J'ai bien mis A3, mais ça me prend toujours le tri à la ligne 2.
COMMENT FAIRE ?

Merci de m'aider

[tro2blabla]

[AlainTech]

Ne pas utiliser

Code :

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

Cells.Sort

mais bien

Code :

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

UnRangeQueTuDefinis.Sort