[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