ldexplorer
XLDnaute Junior
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.
Conséquence : cherche donc excellien compréhensif pouvant m'aider
A très bientot, j'espere sur ce fil et d'avance merci
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.
Code:
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 SubConséquence : cherche donc excellien compréhensif pouvant m'aider
A très bientot, j'espere sur ce fil et d'avance merci