Question concernant les tris

Version imprimable

03/06/2019, 10h38
atk_49

2 pièce(s) jointe(s)

Question concernant les tris

Bonjour à tous,

J'aimerais pouvoir trier automatiquement cette liste :

Pièce jointe 480295

Dans cet ordre :

Pièce jointe 480298

Quelle est selon vous la meilleure méthode VBA ?

Merci d'avance.

Bonjour,

Une solution avec la liste des valeurs à partir de A2 (attention, utilisation de la colonne B, à modifier si déjà occupée)
Sub Tri()

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Application.ScreenUpdating = False
    DerLig = [A10000].End(xlUp).Row
    Range("B2:B" & DerLig).FormulaR1C1 = "=RC[-1]&"" aaa"""
    Range("A2:B" & DerLig).Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B2:B" & DerLig), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A2:B" & DerLig)
        .Header = xlGuess
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Columns(2).Delete
End Sub

Cdlt

03/06/2019, 11h27
halaster08

Citation:

Envoyé par atk_49

Quelle est selon vous la meilleure méthode VBA ?

Bonjour,

Est-ce un choix de ta part que les valeurs 621.721.821 soient considérées comme des nombres et non du texte ?
Si non, onglets données -> convertir -> texte puis tri normal fera l'affaire (l'enregistreur de macro te donnera 90% du code)
03/06/2019, 11h50
atk_49

@ARTURO83

Merci pour cette solution, je vais la tester.
A quoi correspond cette formule ?

Code:

Range("B2:B" & DerLig).FormulaR1C1 = "=RC[-1]&"" aaa"""

@halaster08

Je n'ai pas d'obligation concernant les formats, je peux donc les convertir en texte, je vais tester aussi.

Merci.
03/06/2019, 11h56
ARTURO83

A quoi correspond cette formule ?
Range("B2:B" & DerLig).FormulaR1C1 = "=RC[-1]&"" aaa"""

On ajoute " aaa" derrière chaque valeur, ce qui donne:
Pièce jointe 480321

Il ne reste plus qu'à faire un tri sur la colonne B et de la supprimer après le tri

Cdlt

Bonjour,

En convertissant les nombres en texte, cela fonctionne :

Code:

1
2
3
4
5
6
 
Sub TriParValeur()
 
Range("A1").CurrentRegion.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), TrailingMinusNumbers:=True
Range("A1").CurrentRegion.Sort key1:=Range("A1"), order1:=xlAscending, dataoption1:=xlSortNormal, Header:=xlNo
End Sub

Essaies et dis-moi !

J'ai choisi la méthode donné par halaster08,

Code:

1
2
3
4
5
6
7
8
9
10
Option Explicit
Sub Tri()
Dim i As Integer
    With ThisWorkbook.Sheets("Feuille")
         i = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A4:AL" & i).Sort Key1:=.Range("C1"), Order1:=xlDescending, DataOption1:=xlSortNormal, Key2:=.Range("D1"), Order2:=xlAscending, DataOption2:=xlSortNormal, Key3:=.Range("E1"), Order3:=xlAscending, DataOption3:=xlSortNormal
        .Range("A4:AL" & i).Sort Key1:=.Range("A1"), Order1:=xlAscending, DataOption1:=xlSortNormal, Key2:=.Range("B1"), Order2:=xlAscending, DataOption2:=xlSortOnValues
    End With
    MsgBox "Opération terminée"
End Sub

J'ai dû étager les deux fonctions .sort car on ne peux pas utiliser plus de 3 critères de tri à la fois.

Merci ! ;)

03/06/2019, 18h19
78chris

Bonjour

Citation:

Envoyé par atk_49

J'ai dû étager les deux fonctions .sort car on ne peux pas utiliser plus de 3 critères de tri à la fois.

Depuis 2007 on peut utiliser 127 niveaux ou critères !

Bonjour,

J'ai fais un essai mais j'obtiens toujours un message d'erreur au delà de trois critères :

Code:

1
2
3
4
5
6
.Range("A4:AL" & i).Sort _
Key1:=.Range("A1"), Order1:=xlAscending, DataOption1:=xlSortNormal, _
Key2:=.Range("B1"), Order2:=xlAscending, DataOption2:=xlSortOnValues, _
Key3:=.Range("C1"), Order3:=xlDescending, DataOption3:=xlSortNormal, _
Key4:=.Range("D1"), Order4:=xlAscending, DataOption4:=xlSortNormal, _
Key5:=.Range("E1"), Order5:=xlAscending, DataOption5:=xlSortNormal

Existe-t-il une autre méthode ?

RE

Oui en n'utilisant pas les méthodes Excel 2003 mais les nouvelles (que te donne par exemple l'enregistreur macro)

Code:

1
2
3
4
5
6
7
8
    With ActiveWorkbook.Worksheets("NomFeuille").Sort.SortFields
        .Clear
        .Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Add Key:=Range("B1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Add Key:=Range("C1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .Add Key:=Range("D1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Add Key:=Range("E1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    End With