Tri classeur Excel

Bonjour à tous,
J'ai un classeur excel que je souhaiterais trié automatiquement après avoir sélectionné et trié une colonne (tri avec "étendre la sélection"). J'arrive à sélectionner la plage, à la trier mais je n'arrive pas à trier toutes les autres colonnes par apport à la colonne triée :

Code:

---

1 2 3

Range(Cells(2, num_col), Cells(i - 1, num_col)).Select Selection.Sort Key1:=Range("J1")

---

Si quelqu'un pouvait m'aider merci

Bonjour

tu ne sélectionne qu'une colonne

Code:

---

Range(Cells(2, num_col), Cells(i - 1, num_col)).Select

---

il faut que tu sélectionne toutes les colonnes que tu veux trier.

Puis trier comme tu l'as fait.

Code:

---

Selection.Sort Key1:=Range("J1")

---

Bonne journée.

Bonjour,

utilises l'enregistreur de macro, en utilisant l'outil "trier" de l'onglet données pour réaliser ton tri

tu y trouveras les propriétés et méthodes nécessaires de la méthode Sort (notamment "SetRange")

Citation:

---

Envoyé par a_diard

Bonjour

tu ne sélectionne qu'une colonne

Code:

---

Range(Cells(2, num_col), Cells(i - 1, num_col)).Select

---

il faut que tu sélectionne toutes les colonnes que tu veux trier.

Puis trier comme tu l'as fait.

Code:

---

Selection.Sort Key1:=Range("J1")

---

Bonne journée.

---

******************************************
Merci pour ton aide mais si je peux me permettre je ne suis pas d'accord avec toi, si je le fait manuellement :
- je sélectionne ma colonne je la trie (de A à Z) puis à la demande d'Excel :Que voulez vous faire ?
- je réponds "Etendre la sélection" et là toutes les colonnes sont triées sur l'ordre de tri de la colonne triée

Citation:

---

Envoyé par joe.levrai

Bonjour,

utilises l'enregistreur de macro, en utilisant l'outil "trier" de l'onglet données pour réaliser ton tri

tu y trouveras les propriétés et méthodes nécessaires de la méthode Sort (notamment "SetRange")

---

*******************************************
Merci à toi je viens de faire ce que tu m'as dit ça marche nickel !!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Range(Cells(2, num_col), Cells(i - 1, num_col)).Select ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("J2"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Feuil1").Sort .SetRange Range("A2:Y19") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With

---