Modifier un tri d'Excel 2003 -> 2010

Yperion

XLDnaute Nouveau
Bonjour à tous,

Je dois modifier des macros vba 2003 vers 2010 et je dois adapter des tris. (je n'ai pas trop de notion des évolution vba 2010 pour le moment)

Je rencontre la difficultés suivante :
J'enregistre une macro (menu "Développeur") pour faire un tri et quand je l’exécute il me dit que l'indice n'appartient pas à la sélection

Code:
    ActiveWorkbook.Worksheets("RESULTAT").ListObjects( _
        "Tableau_Lancer_la_requête_à_partir_de_Excel_Files23").Sort.SortFields.Clear
    
    ActiveWorkbook.Worksheets("RESULTAT").ListObjects( _
        "Tableau_Lancer_la_requête_à_partir_de_Excel_Files23").Sort.SortFields.Add Key _
        :=Range("Tableau_Lancer_la_requête_à_partir_de_Excel_Files23[PRODUIT]"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    
    With ActiveWorkbook.Worksheets("RESULTAT").ListObjects( _
        "Tableau_Lancer_la_requête_à_partir_de_Excel_Files23").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Donc je suppose que ListObjects en est la cause puisqu'il est en dur et qu'il ne doit pas correspondre au moment de l'exec.

Pourriez-vous me dire comment l'adapter pour qu'il soit pris en compte dynamiquement ?

Merci de votre aide

P
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 913
Messages
2 093 534
Membres
105 750
dernier inscrit
fred13340