Tri croissant sous excel

Question

HI
je souhaite réaliser un tri croissant sur la premiere colonne de mon classeur excel mais j'y arrive pas ma procedur est la suivante:

Set oExcelApp =  CreateObject("EXCEL.APPLICATION")
oExcelApp.Visible = False
oExcelApp.Workbooks.Open Filename:=App.Path & "\Vannes2.xls"
Set Feuil1 = oExcelApp.sheets("Vannes")

Screen.MousePointer = 11

Feuil1.Cells(3000, 1).Value = Vannes_Ajout.Combo1.Text

 ICI ON AJOUTE LA COMMANDE DE TRI 

' Terminate and release the Excel objects.
oExcelApp.DisplayAlerts  = False
oExcelApp.ActiveWorkbook.Save
oExcelApp.ActiveWorkbook.Close True
oExcelApp.Quit
Set Feuil1 = Nothing
Set oExcelApp = Nothing

donc si vous savez le faire je vous dit merci

daivil · Answer

Essaye ca :

Selection.Sort Key1:= Range("A1"), Order1:=xlAscending,_ Header:=xlGuess, _
OrderCustom:=1,MatchCase:=False,_
Orientation:=xlTopToBottom

-- Devil --

waimea64 · Answer

En fait ya 2 probleme ,
1 qd je copie les 3 lignes ca met tout en rouge sous VB donc g enlevé les '_' et g tt mis sur une meme ligne

2 il me dit "range": sub or function not defined

daivil · Answer

Faut que tu encadres avec un with

= > 

With oexcellApp
   ma_ligne
end with

-- Devil --

waimea64 · Answer

desolé mais il y a encore un pb c k'il ne reconnait pas les termes "xlAscending"????

Tri croissant sous excel

4 réponses

Discussions similaires