XL 2019 VBA Tri à n critères avec liste spéciale

[Spitnolan08]

Bonjour à tous,

J'essaie de rationaliser l'usage de la fonction Tri à n niveaux via une routine type mais, j'ai un petit souci avec le passage de l'argument CustomOrder (A ne pas confondre avec orderCustom...) pour le passage d'une liste particulière

Je ne comprends pas pourquoi, ce code ne fonctionne pas

Sub triTest4b()
    Dim Liste4 As String
    Liste4 = "Marché,Avenant"
  
    Application.AddCustomList ListArray:=Array("Marché", "Avenant")
    ActiveWorkbook.Worksheets("BDTest").Sort.SortFields.Clear
    With ActiveWorkbook.Worksheets("BDTest").Sort.SortFields
       .Add2 Key:=Range("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
       .Add2 Key:=Range("C:C"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

       ''***Cas spécial avec liste particulière
       .Add2 Key:=Range("F:F"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=Liste4, DataOption:=xlSortNormal
       .Add2 Key:=Range("V:V"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    End With
  
    With ActiveWorkbook.Worksheets("BDTest").Sort
        .SetRange ActiveSheet.UsedRange
        .Header = xlYes 'xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With
End Sub

Le problème se situe sur la ligne .Add2 Key:=Range("F:F"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=Liste4, DataOption:=xlSortNormal
alors que celui ci fonctionne parfaitement...

Sub triTest4b()
    Dim Liste4 As String
    Liste4 = "Marché,Avenant"
  
    Application.AddCustomList ListArray:=Array("Marché", "Avenant")
    ActiveWorkbook.Worksheets("BDTest").Sort.SortFields.Clear
    With ActiveWorkbook.Worksheets("BDTest").Sort.SortFields
       .Add2 Key:=Range("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
       .Add2 Key:=Range("C:C"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

       ''***Cas spécial avec liste particulière
       .Add2 Key:=Range("F:F"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:='"Marché,Avenant", DataOption:=xlSortNormal
       .Add2 Key:=Range("V:V"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    End With
  
    With ActiveWorkbook.Worksheets("BDTest").Sort
        .SetRange ActiveSheet.UsedRange
        .Header = xlYes 'xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With
End Sub

Nota : ces codes nécessitent des tableaux avec en tête de ligne (Titres). Sinon, il faut changer xlYes en xlGuess ou xlNo
Avez vous une solution pour passer cet argument en variable ?

Edit : je viens de me rendre compte de ça :

SortField. CustomOrder, propriété (Excel) Spécifie un ordre personnalisé pour trier les champs. Variant en lecture/écriture.​

Mais même en passant Liste4 en Variant ça ne change rien

 

[Spitnolan08]

Re,
Merci à ceux qui ont cherché.

J'ai trouvé :
CustomOrder:=CVar(Liste4)

 

[Hasco]

Bonjour,

Fallait la trouver celle-là
Et directement en déclarant Liste4 en variant au lieu de string ? Cela éviterait la conversion à l'exécution en variant.

cordialement