erreur dans macro tri d'un tableau

[ldexplorer]

Bonjour à vous tous excelliens,

Certains que le froid n'aura pas trop réduit l'activité de vos neurones, je vous soumets un nouveau problème.

Dans le cadre d'une petite bdd, je souhaite mettre en place la macro suivante. J'ai copié le code ci-après. Cette macro doit sélectionner permets de faire un tri par ordre croissant sur deux colonnes d'un tableau. Elle sélectionne la ligne B10 jusqu'à la dernière ligne dans laquelle figure des données puis fait le tri.

Problème : elle ne fonctionne pas.

Sub tritableau()
Dim li As Integer 'déclare la variable li

    'sélectionne la première ligne (B10)du tableau jusqu'à la dernière
    li = ActiveSheet.Range("B65536").End(xlUp).Row
    Rows(Cells(li, 2), Cells(li, 7)).Select
    
    'effectue le tri
    Selection.Sort Key1:=Range("B11"), Order1:=xlAscending, Key2:=Range("C11" _
        ), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal

End Sub

Conséquence : cherche donc excellien compréhensif pouvant m'aider
A très bientot, j'espere sur ce fil et d'avance merci

 

[jp14]

Re : erreur dans macro tri d'un tableau

Bonjour

Il faudrait remplacer Rows par Range.

Rows est associé à un nombre
Range à une plage de cellule

A tester

JP

 

[Hervé]

Re : erreur dans macro tri d'un tableau

bonsoir

j'ai pas testé ton code mais, cette syntaxe me surprend :

Rows(Cells(li, 2), Cells(li, 7)).Select

j'aurais plutot vu un truc dans le style :

range(Cells(10, 2), Cells(li, 7)).Select

salut

edition : oups désolé JP, salut à toi

 

[ldexplorer]

Re : erreur dans macro tri d'un tableau

Merci à vous,

Le code marche effectivement. Je ne suis très lourdement novice.