Discussion :

[xeron33]

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 :

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

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

[a_diard]

Bonjour

tu ne sélectionne qu'une colonne

Code :

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

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 :

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

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

Bonne journée.

[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")

[xeron33]

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 :

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

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

[xeron33]

Bonjour

tu ne sélectionne qu'une colonne

Code :

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

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 :

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

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