Triage alphabétique des feuilles d'1 classeur
a
Bonjour,
quelqu'un connaitrait-il le moyen de trier automatiquement les feuilles d'un classeur ?
J'ai un classeur de plus de 100 feuilles et les recherches sont assez longues ^^.
Merci d'avance.
Alain
A
Bonjour
Pour ne pas trier les premiers onglets: Ajouter une espace avant leur Nom
Pour conserver X ongletsbloqués à la fin : Ajouter une espace insécable avant leur nom (Appuyer sur Alt et taper 0160 avec le pavé numérique)
Sub TriChaqueFeuilles()
Dim X As Variant
Dim I As Variant
For Each X In ActiveWorkbook.Sheets
For I = 2 To ActiveWorkbook.Sheets.Count
If Sheets(I - 1).Name > Sheets(I).Name Then
Sheets(I - 1).Move After:=Sheets(I)
End If
Next
Next
End SubCordialement