Tri Ordre Croissant

Version imprimable

19/09/2018, 10h57
Hayr0x

1 pièce(s) jointe(s)

Tri Ordre Croissant

Bonjour,

Je voulais savoir si il était possible de trié par ordre croissant des cellules d'un tableau. Je connais la formule : Columns("A:A").Select Selection.Sort Key1:=Range("A1")
Cependant dans mon cas le tableau est scindé en plusieurs groupe et je veux que ce tri se fasse uniquement au sein des groupes et non dans toute la feuille. Je vous envoie un fichier Excel pour vous expliquer ce que je souhaite réaliser.
19/09/2018, 11h20
Menhir

Citation:

Envoyé par Hayr0x

Je voulais savoir si il était possible de trié par ordre croissant des cellules d'un tableau. Je connais la formule : Columns("A:A").Select Selection.Sort Key1:=Range("A1")

Première chose : Select/Selection est inutile, voir même préjudiciable.
Ecris plutôt :

Code:

Columns("A:A").Sort Key1:=Range("A1")

Normalement cette méthode tri par ordre croissant.
Si tu veux faire un tri par ordre décroissant, regarde le paramètre Order1.
https://docs.microsoft.com/fr-fr/off...cel.Range.Sort
https://docs.microsoft.com/en-us/off...el.xlsortorder

Citation:

Cependant dans mon cas le tableau est scindé en plusieurs groupe et je veux que ce tri se fasse uniquement au sein des groupes et non dans toute la feuille.

Dans ce cas, il ne faut pas appliquer le Sort à la colonne entière mais à la zone Range correspondant à ce que tu souhaites trier.

Citation:

Je vous envoie un fichier Excel pour vous expliquer ce que je souhaite réaliser.

Lis ceci : https://www.developpez.net/forums/d8...s-discussions/

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Tri()
  Set début = Range("A1")
  Ncol = début.CurrentRegion.Columns.Count
  début.Offset(, Ncol).EntireColumn.Insert Shift:=xlToRight
  Set Rng1 = début.CurrentRegion.Offset(, Ncol - 1).Resize(, 1)
  Set Rng2 = début.CurrentRegion.Offset(, Ncol).Resize(, 1)
  Rng2.Value = Rng1.Value
  Rng2.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
  Rng2.Value = Rng2.Value
  début.CurrentRegion.Sort Key1:=Cells(2, Ncol + 1), Order1:=xlAscending, _
      Key2:=Cells(2, 1), Order2:=xlAscending, Header:=xlGuess
  Cells(1, Ncol + 1).EntireColumn.Delete
  [A1].Select
End Sub

Boisgontier