Tri VBA : Erreur d'exécution '13': incompatibilté de type

Question

Bonsoir (Bonjour) à tous ,

J'aimerais faire un tri personnalisé grâce à une macro.

Tout d'abord selon une liste fixe : (aaa,bbb,ccc).

Puis selon une liste variable définie par les valeurs des cellules d'une plage.

Pour cela, j'ai défini la liste de l'ordre de tri par une variable "Ordre" qui correspond à une chaîne de caractères obtenue en convertissant le tableau Nr() grâce à la fonction Array.

J'ai ensuite inséré la variable "ordre" dans les paramètres du tri comme ci-dessous

Sub tri()

Dim ordre As String 'variant
Dim ordre1 As String 'variant
Dim Nr(1 To 75) As String

    For i = 1 To 15
        Nr(i) = Cells(i, 1).Value
    Next i

    ordre = Join(Array(Nr(1), Nr(2), Nr(3), Nr(4), Nr(5), Nr(6), Nr(7), Nr(8), Nr(9), Nr(10), Nr(11), Nr(12), Nr(13), Nr(14), Nr(15)), ",")
    ordre1 = Join(Array(Chr$(34), ordre, Chr$(34)), "")

    'MsgBox ordre'***** Renvoie 10,20,30,quarante,50,60,70,80,90,100,,,,, (sans guillemets)
    'MsgBox ordre1'*****Renvoie "10,20,30,quarante,50,60,70,80,90,100,,,,," (entre guillemets)

    Range("C1:D15").Select

    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range( _
        "D1:D15"), SortOn:=xlSortOnValues, CustomOrder:= _
        "aaa,bbb,ccc", DataOption:=xlSortNormal

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range( _
        "C1:C15"), SortOn:=xlSortOnValues, CustomOrder:=ordre, DataOption:=xlSortNormal 'ou ordre1 
'ERREUR 13: INCOMPATIBILITE DE TYPE (certainement a cause de la variable ordre

         With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("C1:D15")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        End With

End Sub

Le problème: ça ne marche pas (ERREUR 13: INCOMPATIBILITÉ DE TYPE (certainement a cause de la variable ordre).

j'ai essayé de la déclarer comme String puis comme Variant mais toujours cette erreur

Pouvez-vous me dire ce qui cloche?

Merci d'avance pour vos réponses.

Ci-joint un fichier exemple

13tri-vba.xlsm (21.42 Ko)

Cdlt

Elo7

MFerrand · Answer

Si tu veux faire un tel tri par VBA, je te conseillerais de t'assurer que tu peux le faire manuellement. Le cas échéant après consultation de du chapitre Trier d'après une liste personnalisée, dans l'Aide. Dès lors que tu parviens à trier ainsi manuellement, il n'y aura plus qu'un éventuel problème de syntaxe à régler... Cordialement...

MFerrand · Answer

Re bonjour,

Je sais bien que ton code provient pour une bonne part de l'enregistreur, c'est presque toujours le cas lorsqu'on utilise cette méthode de tri (au lieu de la méthode Sort de l'objet Range), et il facile de voir que ces pans de code n'ont fait l'objet d'aucune épuration : outre qu'il est reproduit façon enregistreur, il n'y a qu'à chercher xlPinYin (paramètre à la fois par défaut et dont le changement ne concerne que les langues chinoises !!!) dans le bas pour en être sûr.

Mais ce n'était pas ce qui était en question. La méthode Range.Sort n'est pas utilisable dans ton cas, le paramètre OrderCustom n'a rien à voir avec CustomOrder. Et au demeurant l'usage de l'enregistreur est au départ pleinement justifié pour trouver la syntaxe qui convient. Mon message n'avait pas d'autre sens : en réalisant une opération manuellement avec succès, on s'assure qu'elle faisable ; en l'enregistrant, on peut cerner la syntaxe adéquate sur les points délicats.

Au stade où tu en es, le problème semble se situer sur la création de la liste. Si elle ne se crée pas, soit la syntaxe n'est pas la bonne, soit le type de liste que tu veux créer n'est pas accepté par Excel. Je ne saurais dire. J'aurais le sentiment que le type de données de la liste doit être le même ?

Bon courage pour les tests.

Cordialement.

MFerrand · Answer

Je n'y suis pour rien. Si les quelques voies d'orientation que j'ai essayé de mettre en avant ont pu servir, tant mieux. Mais c'est toi qu'il faut remercier pour être arrivé au bout de cette problématique particulière. On pourra s'y référer ! D'autant que ce n'est pas une question courante. Bonne continuation. Bien cordialement. Et bon weekend...