Discussion :

[alex830001]

Bonjour,

Je cherche à trier un tableau dont la longueur peut varier via VBA.

Voici mon code sur une taille fixe:

Code :

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

1
2
3
4
5
Range("A1:S1150").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:= _
        Range("C2"), Order2:=xlAscending, Key3:=Range("B2"), Order3:=xlAscending _
        , Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal

J'enregistre la derniere ligne du tableau dans la variable derli. J'ai donc essayé le code suivant mais cela ne fonctionne pas:

Code :

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

1
2
3
4
5
Range(cells(1,1),cells(19,derli)).Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:= _
        Range("C2"), Order2:=xlAscending, Key3:=Range("B2"), Order3:=xlAscending _
        , Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal

En espérant que quelqu'un sache comment faire. Merci pour votre aide.

[beben31]

Tu peux faire comme ça par exemple :

Code :

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

1
2
3
4
5
6
 
Range("A1").Select
Selection.End(xlDown).Select
j = ActiveCell.Row
case_select = "S" & j
Range("A1", case_select).Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:= Range("C2"), Order2:=xlAscending, Key3:=Range("B2"), Order:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal

A condition qu'aucune des cases de la colonne A de ton tableau ne soit vide.

[aalex_38]

Tu peux aussi utiliser CurrentRegion

Code :

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

1
2
3
Dim myCell As Range
Set myCell = Cells(1, 1)
Set myCell = myCell.CurrentRegion

[alex830001]

J'avais en fait inversé ligne et colonne ds mon code. Cela fonctionne.

Merci à vous.