trier les feuille

[Alex]

Bonjour,

comment trier les feuiles par mois dans un classeur ?
les mettre en ordre et aussi suivant lannée
décembre 2003 Janvier 2004

Merci d'avance

 

[Papaye]

Coucou,

J'ai eu le même souci. J'ai trouvé une solution à cette adresse : http://dj.joss.free.fr/feuil.htm#trifeuil

Papaye

 

[Alex]

mais moi je voudrai un tri par moi pa par odre alphabétique qqn connait?

 

[Yeahou]

Bonjour Alex, Papaye, le Forum

La solution de papaye (code de http://dj.joss.free.fr/feuil.htm#trifeuil
) en adaptant un peu.

Cordialement, A+

Sub Tri_Feuilles_par_Mois()
Dim X As Variant
Dim I As Variant
Application.ScreenUpdating = False
For Each X In ActiveWorkbook.Sheets
For I = 2 To ActiveWorkbook.Sheets.Count
If Not (IsDate(Sheets(I - 1).Name)) Then MsgBox Sheets(I - 1).Name & " impossible à convertir": Exit Sub
If Not (IsDate(Sheets(I).Name)) Then MsgBox Sheets(I).Name & " impossible à convertir": Exit Sub
If DateValue(Sheets(I - 1).Name) > DateValue(Sheets(I).Name) Then
Sheets(I - 1).Move After:=Sheets(I)
End If
Next I
Next X
End Sub