Tri de la dernière colonneRésolu

Question

Bonjour, je suis un grand débutant sur VBA depuis ce matin j'ai bien progressé en cherchant un peut partout mais la je bloque. Donc j'ai un tableau qui au fur et à mesure des semaines possèdera plus colonnes. J'ai réussi à écrire quelques chose pour selectionner la derniere colonne mais je ne sais pas écrire que je souhaite trier la derniere colonne par ordre décroissant. J'ai fat un petit coup d'enregistreur pour voir la forme de la formule du tri mais impossible de la remanier comme je le souhaite. Merci.

Sub Macro1()'Tri de la dernière colonnesCells(1, Columns.Count).End(xlToLeft).Offset(, 0).SelectActiveCell.EntireColumn.Select    ActiveWorkbook.Worksheets("Pareto").Sort.SortFields.Clear    ActiveWorkbook.Worksheets("Pareto").Sort.SortFields.Add Key:=Range("AG1"), _        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal    With ActiveWorkbook.Worksheets("Pareto").Sort        .SetRange Range("A2:AG23")        .Header = xlNo        .MatchCase = False        .Orientation = xlTopToBottom        .SortMethod = xlPinYin        .Apply    End With    End Sub

jordane45 · Answer

Bonjour,

Sub Macro1()

'Tri de la dernière colonnes
Cells(1, Columns.Count).End(xlToLeft).Offset(, 0).Select
    ActiveWorkbook.Worksheets("Pareto").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Pareto").Sort.SortFields.Add Key:=ActiveCell, _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Pareto").Sort
        .SetRange Selection.CurrentRegion
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
End Sub

Merlinn · Answer

Merci c'est super !

 ".SetRange Selection.CurrentRegion" Signifie que que l'action va être mené sur la zone selectionnée ? Et quelle est la différence entre "ActiveCell" et "Selection.CurrentRegion" ?

Car le premier c'est les cellules actives et le second me semble identique en traduisant litteralement.

Désolé si je pose pas mal de question mais je galère tellement que je prend vraiement goût à en apprendre

Merci encore une fois Jordane45

Tri de la dernière colonne

2 réponses

Votre réponse

Discussions similaires