fonction 2007 --> 2003 xlSortOnValues

[rin01]

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

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]

Re : fonction 2007 --> 2003 xlSortOnValues

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

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]

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]

Re : fonction 2007 --> 2003 xlSortOnValues

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

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

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