XL 2016 Vba trier plusieurs colonnes d'une plage

KTM · 15 Septembre 2023

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 · 15 Septembre 2023

Bonsoir le fil,

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

patricktoulon · 15 Septembre 2023

Bonjour

corriger quoi?
pas de fichier
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 · 15 Septembre 2023

Bonjour @patricktoulon

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

KTM · 15 Septembre 2023

patricktoulon à dit:
Bonjour

corriger quoi?

pas de fichier

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 · 15 Septembre 2023

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

Staple1600 · 15 Septembre 2023

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

KTM · 15 Septembre 2023

Staple1600 à dit:
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 · 15 Septembre 2023

Staple1600 à dit:
@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 · 15 Septembre 2023

Re

@KTM
Qu'est-ce tu entends par

mais quelque chose cloche.

Tu peux donner plus détails.
Merci

KTM · 15 Septembre 2023

Staple1600 à dit:
Re

@KTM
Qu'est-ce tu entends par

Tu peux donner plus détails.
Merci

Mon code renvoie une erreur

VB:

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 · 15 Septembre 2023

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 ?

Code:

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 · 15 Septembre 2023

bonsoir,

TooFatBoy · 15 Septembre 2023

Bonjour,

KTM à dit:
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 · 15 Septembre 2023

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.

XL 2016 Vba trier plusieurs colonnes d'une plage

KTM

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Pièces jointes

KTM

XLDnaute Impliqué

Pièces jointes

Staple1600

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Pièces jointes

Staple1600

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires