XL 2016 Vba trier plusieurs colonnes d'une plage

[KTM]

Bonsoir chers tous
Je voudrais trier quatre colonnes par ordre croissant ( B,E,G,I) .
Dans mon fichier j'ai conçu un code mais quelque chose cloche.
Aidez moi à corriger Svp.

 

[Staple1600]

Bonsoir le fil,

@KTM
Avec un petit fichier exemple fourni par tes soins , ce serait plus simple de faire nos tests, non ?

 

[patricktoulon]

Bonjour

1. corriger quoi?
2. pas de fichier
3. au dela de 2 colonnes( sauf si un colonne doit etre mère de toutes les autres c'est a dire avec des mêmes valeurs) ,trier 4 colonnes ça n'a plus de sens 😉

 

[Staple1600]

Bonjour @patricktoulon

Ton browser a des problèmes de rafraichissement ?
(cf message#2)
😉

 

[KTM]

Bonjour

1. corriger quoi?
2. pas de fichier
3. au dela de 2 colonnes( sauf si un colonne doit etre mère de toutes les autres c'est a dire avec des mêmes valeurs) ,trier 4 colonnes ça n'a plus de sens 😉

Une omission .Toutes mes excuses

 

[patricktoulon]

re
bonjour @Staple1600
non c'est par ce que j'ai mis trop de temps a répondre

 

[Staple1600]

@KTM
Décidemment, la cape d'invisibilité a frappé deux fois
Tu n'as pas vu le message#2 ?

 

[KTM]

Bonsoir le fil,

@KTM
Avec un petit fichier exemple fourni par tes soins , ce serait plus simple de faire nos tests, non ?

Une omission. Toutes mes excuses

 

[KTM]

@KTM
Décidemment, la cape d'invisibilité a frappé deux fois
Tu n'as pas vu le message#2 ?

Voici le fichier
Toutes mes excuses

 

[Staple1600]

Re

@KTM
Qu'est-ce tu entends par

mais quelque chose cloche.

Tu peux donner plus détails.
Merci

 

[KTM]

Re

@KTM
Qu'est-ce tu entends par

Tu peux donner plus détails.
Merci

Mon code renvoie une erreur

Sub tri()
Application.ScreenUpdating = False
Dim Rng As Range
Set Rng = Range("B3:M" & [B65000].End(xlUp).Row)
Rng.Sort key1:=Range("B3"), order1:=xlAscending, key2:=Range("E3"), order2:=xlAscending, _
key3:=Range("G3"), order3:=xlAscending, key4:=Range("I3"), order4:=xlAscending
End Sub

 

[Staple1600]

Re

Oui, cela semble normal si on regarde que nous dit VBA

Il n'y a de Key4

Par contre en prenant, cette syntaxe plus d'erreur mais est-ce que le tri obtenu est ce que tu cherches ?

Sub tri_bis()
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add2 Key:=Range("B3:B78") _
        , SortOn:=xlSortOnValues, Order:=1, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add2 Key:=Range("E3:E78") _
        , SortOn:=xlSortOnValues, Order:=1, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add2 Key:=Range("G3:G78") _
        , SortOn:=xlSortOnValues, Order:=1, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add2 Key:=Range("I3:I78") _
        , SortOn:=xlSortOnValues, Order:=1, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("B2:M78")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[dysorthographie]

bonsoir,

 

[TooFatBoy]

Bonjour,

Je voudrais trier quatre colonnes par ordre croissant ( B,E,G,I) .

Ta question est bizarre car quand tu vas trier une colonne, ça va changer l'ordre des lignes de cette colonne, mais aussi des autres colonnes.

Donc comme l'a dit Staple1600, il faudrait donner quelques précisions sur ce que tu veux exactement obtenir comme résultat. 😉

 

[Staple1600]

Bonsoir @dysorthographie ,@TooFatBoy

@dysorthographie
Ton code et tri_bis donne le même résultat, non ?
(C'est juste pour savoir)

Normalement, @KTM, si il utilise Excel 2016, peut utiliser la syntaxe Sort apparu avec Excel 2007.

PS: J'ai testé ton code sur Office 365 64 bits.