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