Discussion :

[Jay-P]

Bonjour,

J'ai besoin d'effectuer un tri sur une feuille excel dans une macro.
Dans l'exemple suivant, je trie par rapport aux colonnes B et C :

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
20
Sub Tri_Equipe()
'
' Tri_Equipe Macro
'
 
'
    Windows("Data.xlsx").Activate
    ActiveWorkbook.Worksheets("Jour").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Jour").Sort.SortFields.Add Key:=Range("B3:B12759") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Jour").Sort.SortFields.Add Key:=Range("C3:C12759") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Jour").Sort
        .SetRange Range("A3:AK12759")
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Ma problématique :
Mon fichier grandit tous les jours, j'aimerais donc remplacer les 12759 par une commande indiquant la fin des colonnes.
Quelqu'un a-t-il la solution?
Merci d'avance.

[DeaD78]

Bonjour,

Remplace

Code :

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

Range("A3:AK12759")

par

Code :

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

Range ("A3:AK" & Range("AK65536").End(xlUp).Row)

Cela correspond à la dernière ligne non vide la colonne AK.

Je te laisse faire de même pour les 2 autres endroits où tu dois changer.

Bonne chance pour la suite.

[Jay-P]

Merci de cette réponse.
Je rencontre néanmoins un problème étrange :
Pour un fichier, je dois trier jusqu'à la colonne K. Dans ce cas, ta solution marche sans problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Application.WindowState = xlMinimized
    Sheets("Ecoute").Select
    ActiveWorkbook.Worksheets("Ecoute").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ecoute").Sort.SortFields.Add Key:=Range("C3:C" & Range("C65536").End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Ecoute").Sort.SortFields.Add Key:=Range("E3:E" & Range("E65536").End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Ecoute").Sort
        .SetRange Range("A3:K" & Range("K65536").End(xlUp).Row)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

pas de problème.

Par contre, dans le cas où je dois aller jusqu'à la colonne AK, jai un message d'erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Sheets("Jour").Select
    ActiveWorkbook.Worksheets("Jour").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Jour").Sort.SortFields.Add Key:=Range("B3:B" & Range("B65536").End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Jour").Sort.SortFields.Add Key:=Range("C3:C" & Range("C65536").End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Jour").Sort
        .SetRange ("A3:AK" & Range("AK65536").End(xlUp).Row)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Aucune différence pourtant... Incompatibilité de type pour la ligne :

Code :

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

.SetRange ("A3:AK" & Range("AK65536").End(xlUp).Row)

Quelqu'un a-t-il une explication, une solution?

Merci.

[Jay-P]

En fait je me suis craqué dans un copier/coller et il manquait un début d'instruction. Donc tout marche parfaitement.
Merci encore.