Tri des onglets

[CAMPELLO Hervé]

Bonjour à tous

Exite t'il un moyen ou une macro qui permet de trier les onglets par odre alphabétique.

Merci

Hervé

 

[Zon]

Bonjour,


Hervé, il ya quelque temps j'avais fait un code, l'astuce est de récupérer tous les nom de feuilles dans des cellules puis de les trier et enfin de réorganiser les feuilles.

Sub ordre()
Dim i, j, L As Integer
Dim cell As Range
Dim ws As Worksheet
Set ws1 = Sheets("feuil1")
i = 1
For Each ws In Application.Sheets
Range("A" & i) = ws.Name
i = i + 1
Next sh
L = ws1.Range("A65536").End(xlUp).Row

Range("A1", "A" & L).Sort Key1:=Range("A1"), Order1:=xlAscending

j = 1
For Each cell In Range("A1", "A" & L)
For i = 1 To Sheets.Count
If cell = Sheets(i).Name Then
Sheets(i).Move before:=Sheets(j)
j = j + 1
Exit For
End If
Next i
Next cell
End Sub



A+++

 

[Jon]

des exemples <http://xlbysteph.free.fr//aideinformatique/actionfeuille.htm#feuil_divers>

 

[eric]

Bonjour,

J'ai testé et ça marche.
J'ai mis un bouton de commande sur ma feuille et voilà le code :
Private Sub CommandButton1_Click()
For i = 1 To Sheets.Count
Range("a" & i) = Sheets(i).Name
Next i
Range("A1:A" & Sheets.Count).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

For j = 1 To Sheets.Count
Sheets(Range("a" & j).Text).Move Before:=Sheets(j)
Next j

End Sub

Bon fin de journée à tous, je vous quitte pour aujourd'hui