fonction 2007 --> 2003 xlSortOnValues

rin01 · 10 Février 2011

Bonjour,
Je suis totalement novice en VBA et j'aurais besoin de l'équivalent de ce code en version Exell 2003

Code:

Private Function triAppels()
     ThisWorkbook.Worksheets("appels").Activate
     ThisWorkbook.Worksheets("appels").Columns("H:H").Select
     ThisWorkbook.Worksheets("appels").Sort.SortFields.Clear
     ThisWorkbook.Worksheets("appels").Sort.SortFields.Add Key:=Range("H1"), SortOn:=[B]xlSortOnValues[/B], Order:=xlAscending, DataOption:=xlSortNormal
    With ThisWorkbook.Worksheets("appels").Sort
        .SetRange Range("A2:N800")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Function

L'erreur viendrait de xlSortOnValues mais je ne trouve pas comment contourner.
Merci à vous

JNP · 10 Février 2011

Re : fonction 2007 --> 2003 xlSortOnValues

Bonsoir Rin01 ,
Logiquement, ce devrait être quelque chose comme ça

Code:

Private Function triAppels()
ThisWorkbook.Worksheets("appels").Range("A2:N800").Sort Key1:=Range("H1"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Function

Bon courage

rin01 · 10 Février 2011

Re : fonction 2007 --> 2003 xlSortOnValues

Merci de ta réponse JNP. Avec ce que tu as donné, j'obtiens une erreur d'éxécution '1004' (Référence de tri non valide)

rin01 · 10 Février 2011

Re : fonction 2007 --> 2003 xlSortOnValues

Au temps pour moi! J'ai oublié de mettre les 2 premières lignes

Code:

ThisWorkbook.Worksheets("appels").Activate
     ThisWorkbook.Worksheets("appels").Columns("H:H").Select

Merci beaucoup, ça m'a été d'une grande aide

fonction 2007 --> 2003 xlSortOnValues

rin01

XLDnaute Nouveau

JNP

XLDnaute Barbatruc

rin01

XLDnaute Nouveau

rin01

XLDnaute Nouveau

Discussions similaires