trier onglets par ordre alpha

Bonjour
Trois méthodes au choix (tu les retrouveras sur Excel Labo) :
Sub TrieFeuilles()
Dim i As Integer
Dim J As Integer
Dim Min As Integer
Dim ModeCalcul As Integer
ModeCalcul = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
With ActiveWorkbook.Worksheets
For i = 1 To .Count - 1
Min = i
For J = i + 1 To .Count
If .Item(J).Name < .Item(Min).Name Then Min = J
Next J
If Min <> i Then .Item(Min).Move before:=Worksheets(i)
Next i
End With
Application.Calculation = ModeCalcul
Application.ScreenUpdating = True
Sheets("Feuil1").Select
End Sub

'Trie les onglets des feuilles d'un fichier excel par ordre alphabétique.
Deuxième!

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
Sheets("Feuil1").Select
End Sub
Sub TrieOnglets()
Dim F
Dim i As Long
For Each F In ActiveWorkbook.Sheets
For i = 2 To ActiveWorkbook.Sheets.Count
If UCase(Sheets(i - 1).Name) > UCase(Sheets(i).Name) Then _
Sheets(i - 1).Move After:=Sheets(i)
Next i
Next F
End Sub

Cordialement
Pascal

<anonymous@discussions.microsoft.com> a écrit dans le message de news:
2b4f01c5137c$c45ba520$a401280a@phx.gbl...
Hello,

vous savez comment faire pour trier les onglets par ordre
alphabétique automatiquement? ca me serait bien utile
plutôt qu'a chaque fois faire "déplacer"

Merci à celui ou celle qui m'aidera sur ce point!

bonne fin de journée!

Bonsoir,
Tu trouveras la reponse ici:
http://dj.joss.free.fr/feuil.htm

Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Adresse: http://dj.joss.free.fr/faq.htm

<anonymous@discussions.microsoft.com> a écrit dans le message de news:
2b4f01c5137c$c45ba520$a401280a@phx.gbl...
Hello,

vous savez comment faire pour trier les onglets par ordre
alphabétique automatiquement? ca me serait bien utile
plutôt qu'a chaque fois faire "déplacer"

Merci à celui ou celle qui m'aidera sur ce point!

bonne fin de journée!

Bonjour,

Chez Frédéric Sigonneau:

http://frederic.sigonneau.free.fr/code/ToutFait/FeuillesClasseurs.zip



<anonymous@discussions.microsoft.com> a écrit dans le message de
news:2b4f01c5137c$c45ba520$a401280a@phx.gbl...
Hello,

vous savez comment faire pour trier les onglets par ordre
alphabétique automatiquement? ca me serait bien utile
plutôt qu'a chaque fois faire "déplacer"

Merci à celui ou celle qui m'aidera sur ce point!

bonne fin de journée!

La solution la plus est aboutie est là :

http://www.excelabo.net/moteurs/compteclic.php?nom=dma-trieronglets

AV