Trier une colonne Excel via VB.NET

Question

Bonjour &#224; tous,

Je viens juste de passer en VB.NET et je cherche &#224; utiliser la fonction
tri de excel &#224; travers mon programme mais VB me souligne "Range,
xlAscending, xlGuess, xlTopToBottom ect..." J'ai vu sur le forum qu'il
&#233;tait possible d'utiliser cette fonction pouvez vous me dire ce qui ne
vas pas dans mon programme afin que celui-ci marche.



Merci d'avance

Caussenard

   

 Private Sub DeterminationLotsLocalisations_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
DeterminationLotsLocalisations.Click

             

        Dim SylphApp As Object

        Dim SylphWkbMachine As Object

        Dim SylphWksMachine As Object

        Dim FileName As String

        Dim PRISE As String

        Dim Ligne As String

        Ligne =  1



        'Ouverture du fichier MACHINE

        SylphApp = CreateObject("Excel.Application")

        SylphApp.DisplayAlerts = False

        SylphApp.EnableEvents = False

        SylphApp.Visible = True

        FileName = CF.GetCAProjet & "FM_" & CF.NomProjet & ".xls"

        SylphWkbMachine = SylphApp.Workbooks.Open(FileName)

        SylphWksMachine = SylphWkbMachine.sheets("Feuil1")



        'Suppression des colonnes inutiles

        SylphWksMachine.Columns("B:H").Delete()

        SylphWksMachine.Columns("C:BE").Delete()



                     Ect......... 



        'Classement des Prises par leur noms



        SylphWksMachine.Range("A2:B5000").Sort(Key1: =  ("A2"), Order1:=xlAscending Range _

        ("B2"), Order2: =xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _

        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _

        DataOption2:=xlSortNormal)



        'Enregistrement du fichier Machine

        FileName = CF.GetCALoc & "Loc" & CF.NomProjet & ".xls"

        SylphWkbMachine.Saveas(FileName)

        SylphWkbMachine.Close(False)

        SylphApp.quit()



    End Sub
Caussenard

voilhes · Answer

Tu peux essayer &#231;a:

SylphWksMachine.Range("A2:B5000").Sort(Key1:=   ("A2"), Order1:=xlAscending  SylphWksMachine. Range _
        ("B2"), Order2:  =xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal)

-Francis-

cs_Caussenard · Answer

Merci beaucoup effectivement si je rajoute le nom de la sheet devant chaque instruction &#231;a marche.



SylphWksMachine.Range("A2:B5000").Sort(Key1:SylphWksMachine .Range("A2"), Order1:SylphWksMachine.xlAscending, Key2:=  SylphWksMachine .Range _

        ("B2"), Order2: =SylphWksMachine.xlAscending, Header:=  SylphWksMachine .xlGuess, OrderCustom: =1, MatchCase _

        := False, Orientation:= SylphWksMachine .xlTopToBottom, DataOption1: =SylphWksMachine.xlSortNormal, _

        DataOption2:=SylphWksMachine.xlSortNormal)

Caussenard

cs_Caussenard · Answer

D&#233;sol&#233; je retire ce que j'ai dit &#231;a me supprime les erreurs mais &#231;a ne fait pas marcher le programme pour autant.

Caussenard

Trier une colonne Excel via VB.NET

3 réponses

Discussions similaires