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

[jeanmidudu]

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,

[casefayere]

Bonjour,
essayes comme ça

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()
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

[onclejunior]

Merci beaucoup casefayere cela fonctionne parfaitement.

[casefayere]

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),

bonne journée