Discussion :

[Hayr0x]

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.

[Menhir]

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 :

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

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

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.

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/

[boisgontierjacques]

Bonjour,

Code :

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

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