Tri dynamique VBA

Bonjour,

Je suis novice en VBA et voilà ma situation. Je désire faire une macro avec boucle qui puisse trier les données en fonction de la colonne B sur les données présentes dans la colonne A jusqu'à qu'une cellule vide est présente.
Par exemple jusqu'a la cellule "a12";"a18","f6"...

J'arrive seulement de trier dynamiquement une plage de cellules.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Trier() ' ' Trier Macro Range("B1").Select mylastrow = Cells(1, 1).End(xlDown).Row       ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B1:B" & mylastrow), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Feuil1").Sort .SetRange Range("A1:C" & mylastrow) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With

---

Merci d'avance

Bonjour,

Je ne comprend pas où est le problème, car d'après tes explications, le code que tu as donné réalises ce que tu demandes... Essaye d'être plus précis dans ce que tu demandes.

Par ailleurs, merci de lire ceci : règles du forum

Et de bien vouloir mettre le code entre les bonnes balises (les balises [code] [ /code], représentées par un gros bouton #) avec une indentation qui facilite la compréhension.

Cdt,

Bonjour,
essayes comme ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Trier() Dim mylastrow As Range, Dcel As Range, x As Long Set Dcel = Cells(Rows.Count, 1).End(xlUp) For x = 1 To Dcel(1, 2).Row Set mylastrow = Cells(x, 1).End(xlDown) ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range(Cells(x, 2), mylastrow(1, 2)), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Feuil1").Sort .SetRange Range(Cells(x, 1), mylastrow(1, 3)) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With x = mylastrow.Row + 1 Next x End Sub

---

Merci beaucoup casefayere cela fonctionne parfaitement.

Content pour toi,
je voulais passer par des tris spécifiques aux tableaux structurés mais j'ai trouvé plus simple de faire comme ça,

et si tu veux, lis-bien toutes les remarques de ma signature (en bas des messages), :roll:

bonne journée