Discussion :

[retraite83]

Bonjour,

je fais un test pour comprendre comment faire un tri dans lequel la colonne est dynamique, donc par une variable

après de multiples recherches et essais mon meilleur code me semblait êttre

Code :

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

    test.Range(Cells(5, col)).Sort Key1:=Range(Cells(5, col))

mais il y une erreur à l'exécution

je veux trier pour mon test la colonne col (col = 2) à partir de la ligne 5

je voudrai aussi intégrer une variable derlig qui contient la dernière ligne à trier mais je ne vois pas comment l'intégrer

[mikhaelN]

Hi

J'essaierais

Code :

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

Cells(5, col).Sort Key1:=Cells(5, col), order1:=xlAscending, Header:=xlYes

Pour trier un tableau dont les etiquettes de champs sont en ligne 5 et dont le tri se fait sur la colonne "col"

[anasecu]

Bonjour,

je veux trier pour mon test la colonne col (col = 2) à partir de la ligne 5

En modifiant la première ligne pour affecter ta feuille, ce code devrait te trier ton test :

Code :

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

1
2
3
    With ActiveWorkbook.Worksheets("Feuil1")
        .Cells(5, 1).Resize(derligne, dercolonne).Sort Key1:=.Cells(5, col), Order1:=xlAscending, Header:=xlNo
    End With

[modus57]

Bonjour,

Une autre solution :

Code :

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

1
2
3
4
5
6
7
Dim Lignes, Colonnes, DernLig
Dim myRange As Range
Lignes = 5
Colonnes = 2
DernLig = Range("C" & Rows.Count).End(xlUp).Row 'choix de la colonne à définir
Set myRange = Range([A5], Range("C" & DernLig))
myRange.Sort Key1:=Cells(Lignes, Colonnes), order1:=xlAscending, Header:=xlYes

[anasecu]

Bonjour modus57

Attention à tes variables définies en variant implicite et à tes range qui n'ont pas de localisation d'onglet explicite et si tu as 2 classeurs ouverts cela risque de donner des résultats imprévisibles.

[retraite83]

merci à tous

#3
solution retenue