SUPER CODE

[OLIVIER]

BONSOIR
voici un super code qui ma ete donné sur ce forum je voudrais la meme chose mais pour trier en ordre croissant
merci a vous tous cordialement

Option Explicit
Sub TrierPlages()
Dim i As Byte, lig As Integer
Dim Plage As Range, Cell As Range
For i = 7 To 23 Step 4

Set Plage = Range(Cells(6, i), Cells(25, i + 2))
Plage.Sort Key1:=Cells(6, i), Order1:=xlDescending
For Each Cell In Range(Cells(6, i), Cells(25, i))
If Application.CountIf(Plage, Cell) = 1 Then
Cell.Offset(0, 2) = Cell.Offset(-1, 2) + 1
Else
If Cell <> Cell.Offset(-1, 0) Then
Cell.Offset(0, 2) = Cell.Offset(-1, 2) + 1
Else
Cell.Offset(0, 2) = Cell.Offset(-1, 2)
End If
End If
Next Cell
Plage.Sort Key1:=Cells(6, i + 1), Order1:=xlAscending
Next i
End Sub

P.S Pour rajouter une colonne ou pour placer mes colonne a trier n'importe ou sur la feuille quesqu'il faut faire merci a vous tous

 

[Creepy]

Bonjour,

Alors pour ta première question cherche bien, je pense que même un novice peux trouver la solution tout seul comme un grand ce n'est pas vraiment compliqué !

En plus d'après le code tu tries deja en ordre croissan, je pense que tu veux l'inverse !

Je t'aide un peu : DESCENDING ASCENDING !

++

Creepy