Trie d’une liste évolutive commandée par un bouton

[dbonneaud]

Bonjour à tous,
J'ai créé une macro pour trier une liste commandé par un bouton, mais cette liste est évolutive.
Comment faire évoluer le trie en fonction de la nouvelle longueur de liste, en modifiant "C35" et "K35" en fonction de la dernière ligne utilisée.


Sub Classementlisteclients()
' Classementlisteclients Macro
ActiveWorkbook.Worksheets("Données clients").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Données clients").Sort.SortFields.Add Key:=Range( _
"C2:C35"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Données clients").Sort
.SetRange Range("C1:K35")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Merci

 

[mth]

Re : Trie d’une liste évolutive commandée par un bouton

Bonsoir,

On peut peut-être faire mieux, mais essaie en ajoutant juste ceci:

Sub Classementlisteclients()
' Classementlisteclients Macro
[COLOR=darkred]Dim Derlig As Long
Derlig = Sheets("Données Clients").Range("C65530").End(xlUp).Row[/COLOR]
ActiveWorkbook.Worksheets("Données clients").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Données clients").Sort.SortFields.Add Key:=Range( _
"C2:C[COLOR=darkred]" & Derlig[/COLOR]), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Données clients").Sort
.SetRange Range("C1:K[COLOR=darkred]" & Derlig[/COLOR])
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Bien à toi,

mth

 

[dbonneaud]

Re : Trie d’une liste évolutive commandée par un bouton

Bonjour Mth,
Lors du tri toutes les lignes vides s'affichent au dessus.
J'ai pensé repérer sur le fichier le dernier N° de ligne comprenant du texte, mais je n'arrive pas à l'intégrer dans le code.
Merci
@+

 

[dbonneaud]

Re : Trie d’une liste évolutive commandée par un bouton

Bonjour Mth,
J'ai trouvé une formule qui fonctionne !
Feuil6.Cells(1, 1)) étant le dernier N° de ligne utilisé.

Sub Classementlisteclients()
' Classementlisteclients Macro
    ActiveWorkbook.Worksheets("Données clients").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Données clients").Sort.SortFields.Add Key:=Range( _
        "C2:C" & Feuil6.Cells(1, 1)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Données clients").Sort
        .SetRange Range("C1:L" & Feuil6.Cells(1, 1))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Merci pour ton aide