Tri et fin de page

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:

---

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.

Bonjour,

Remplace

Code:

---

Range("A3:AK12759")

---

par

Code:

---

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.

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:

---

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:

---

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:

---

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

---

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

Merci.

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