[RESOLU] Simplifié macro de tri

[thombzh]

Bonjour,

J'ai créé une macro de tri permettant le tri par ordre croissant de chaque colonne grâce à l'enregistreur de macro et j'ai manuellement supprimer la selection.

Mais cette macro me paraît bien longue, je voulais savoir si y a pas moyen de faire plus court ?
exemple 10 colonnes mais il pourrait y en avoir bien plus...

 

[JBARBE]

Re : Simplifié macro de tri

Bonjour,

Essaie ceci !

Sub essai()
Dim i As Integer
Application.ScreenUpdating = False
'Sheets("Feuil1").Select
For i = 6 To 15
  Range(Cells(10, i), Cells(44, i)).Sort Key1:=Cells(10, i), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
 ActiveCell.Offset(0, 1).Select
Next i
Application.ScreenUpdating = True
End Sub

 

[thombzh]

Re : Simplifié macro de tri

Superbe, je me doutais bien qu'on pouvais surement allégé ça.
L'enregistreur de macro me dépanne bien, mais il n'optimise pas le code

En tout cas merci beaucoup JBARBE