Discussion :

[onclejunior]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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