Discussion :

[curt]

Bonsoir à tous,

j'ai un module qui fonctionne très bien :

Code :

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

1
2
3
4
5
6
Sub tri1()
 
    Range("A1").CurrentRegion.Sort key1:=Range("C1"), order1:=xlAscending, dataoption1:=xlSortNormal, _
                                   key2:=Range("B1"), order2:=xlAscending, dataoption2:=xlSortNormal, Header:=xlYes
 
End Sub

ça effectue le tri du tableau en prenant comme critère la colonne C et la colonne B

L'embêtant est que j'ai dû créer une colonne intermédiaire (la colonne C) pour avoir le premier caractère gauche de la cellule A correspondante.
Est-il possible de supprimer cette colonne C et traiter directement le tri par ce code (qui lui ne fonctionne pas) :

Code :

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

1
2
Range("A1").CurrentRegion.Sort key1:=Left(Range("A1"), 1), order1:=xlAscending, dataoption1:=xlSortNormal, _
                                   key2:=Range("B1"), order2:=xlAscending, dataoption2:=xlSortNormal, Header:=xlYes

Merci d'avance du coup de main.
Curt

[Invité]

Bonjour,

A tester:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Sub TestTriSelonColonnesAetB()
 
    TriSelonColonnesAetB Sheets("Feuil1"), 1
    MsgBox "Fin du tri !", vbInformation
 
End Sub
 
Sub TriSelonColonnesAetB(ByVal FeuilleATrier As Worksheet, LigneDeTitre As Long)
 
Dim I As Long, DerniereLigne As Long, ColonneTri As Long
Dim AireATrier As Range
Dim AireColonneATrier As Range
 
    Application.ScreenUpdating = False
 
    With FeuilleATrier
 
         ColonneTri = .Cells(LigneDeTitre, .Columns.Count).End(xlToLeft).Column + 1
         .Cells(LigneDeTitre, ColonneTri) = "Tri"
         DerniereLigne = .Cells.SpecialCells(xlCellTypeLastCell).Row
         If DerniereLigne = LigneDeTitre Then Exit Sub
 
         For I = LigneDeTitre + 1 To DerniereLigne
             .Cells(I, ColonneTri) = Left(.Cells(I, 1), 1) & .Cells(I, 2)
         Next I
 
         Set AireATrier = .Range(.Cells(LigneDeTitre, 1), .Cells(DerniereLigne, ColonneTri))
         Set AireColonneATrier = .Range(.Cells(LigneDeTitre, ColonneTri), .Cells(DerniereLigne, ColonneTri))
 
         .Sort.SortFields.Clear
         .Sort.SortFields.Add Key:=AireColonneATrier, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
         With .Sort
              .SetRange AireATrier
              .Header = xlYes
              .MatchCase = False
              .Orientation = xlTopToBottom
              .SortMethod = xlPinYin
              .Apply
         End With
 
         AireColonneATrier.Clear
 
         Set AireColonneATrier = Nothing
         Set AireATrier = Nothing
 
    End With
 
    Application.ScreenUpdating = True
 
End Sub

[curt]

Bonjour Eric et merci pour cette réponse qui fonctionne. (petit pouce en l'air en prime)

Mais mon but était de supprimer cette colonne C intermédiaire, pas d'en créer une même temporaire.
Merci du coup de main en tout cas.

Curt

[Pierre Fauconnier]

Salut Curt,

Je n'ai pas bien compris le besoin. Trier sur le premier caractère de A ne revient-t-t-il pas à trier sur A? Ne peux-tu donc pas trier sur B-A directement?

[Invité]

Salut Pierre,

Pour info :
Pièce jointe 498435

Philippe reconnaîtra son générateur de noms et de dates qui sert toujours....

[curt]

Bonjour à tous et merci de vos réponses.

je vais expliciter le sujet :
J'ai une liste de documents qu'on triée à partir des indices (a, b, c, etc...)
Sans rien changer à cette liste existante, il est demandé de pouvoir "indicer" les indices à savoir de pouvoir traiter (et dans cet ordre) a b1 b2 b3 b c d e1 e2 e3 e
Pour être encore plus clair il existe des indices internes appelés OUVERT (diffusion sous-traitants, chantier) qui ouvrent (comme le nom l'indique) une nouvelle diffusion. Il peut y avoir n indices numériques avant que la diffusion officielle soit faite.

Revenons à ma question et au sujet de ce post :
Je ne peux pas ajouter de colonne (pas même temporaire)
Si j'utilise le tri sur la colonne INDICE, je me retrouve avec c, c1,c10,c11,c12..... c2, c20 - ce qui ne correspond pas à la réalité.

Je regarde en ce moment à trier sur les dates mais ça ne me semble pas judicieux puisque le nombre sous-traitants, chantier etc n'est jamais connu d'une affaire à l'autre.

Merci d'avance pour le coup de main.
Curt

[Invité]

Si je comprends bien, il ne faut toucher à rien dans le tableau mais être en mesure de faire un tri.
Par rapport à mon code, il suffit de charger les valeurs de ma colonne temporaire dans une matrice qui doit contenir également la ligne d'origine du tableau et de trier la matrice.

[curt]

Eric, je penses tu as parfaitement compris le problème.

[Pierre Fauconnier]

Je serais tout de même bien curieux de voir en quoi gêne de mettre une colonne temporaire à droite et de la supprimer après, ceci dit...

[curt]

Bonsoir Laurent et Pierre,

@laurent : merci pour la démarche tant technique que pédagogique - De plus, mettre un lien vers ta signature et les infos est de toute façon un plus (je vais y regarder de très près)

@pierre : effectivement, je suis d'abord partie sur cette solution facile et efficace (et qui fonctionne actuellement) en masquant la colonne concernée. Mais comme tout ce que l'on veut cacher fini un jour par être découvert, je souhaitai faire le tri sans passer par cette colonne temporaire (on ne détruit pas ce qui n'existe pas)

@ tous : merci à tous les intervenants pour leur aide - je vais regarder les liens proposés et si besoin, je repasserai vous voir.

Curt

[Transitoire]

Bonsoir, je vais peut-être dire pleins de bêtises?
En ce qui me concerne, j'utiliserais une extraction totale de ma base de données par filtre élaboré sur une autre feuille. Ainsi je pourrais travailler sur ma base de données bis sans la moindre altération de la base de départ.
Cela me permettrais d'effectuer des tri séquentiels en toute sécurité de manière à obtenir un tri très complexe. Car le problème des tri/tri successif est le retour a l'original
Enfin moi ce que j'en dit ??? Je ne détiens pas de vérité.
Cordialement

[Pierre Fauconnier]

[...]

@pierre : effectivement, je suis d'abord partie sur cette solution facile et efficace (et qui fonctionne actuellement) en masquant la colonne concernée. Mais comme tout ce que l'on veut cacher fini un jour par être découvert, je souhaitai faire le tri sans passer par cette colonne temporaire (on ne détruit pas ce qui n'existe pas)[...]

Tu la crées juste le temps de traiter les données, puis tu la supprimes. C'est juste une colonne temporaire, créée pour le temps du traitement...

Cela dit, la solution de Transitoire est très intéressante aussi. Lorsque je dois traiter ce genre de cas, je travaille toujours sur une copie de la source, ce qui me donne entière liberté pour les traitements...