trier les onglets !?

[Novice avance !?]

bonjour,
j'ai un petit souci avec mes noms d'onglets générés en fonction d'une date dans une cellules de chacune de ces feuilles

feuil1 si A1= 01/01/07 alors le nom de la feuille est "janvier 2007"
feuil2 si A1= 01/04/07 alors ce sera "avril 2007"
feuil3 si A1= 01/02/07 alors ce sera "février 2007"
.
.
.
donc nous avons non trié en bas les onglest : janvier 2007 , avril 2007 , février 2007 ...

y-at'il un moyen de trier les onglets dans l'ordre de "janvier 2007" à "décembre 2007" ?

merci

 

[Novice avance !?]

Re : trier les onglets !?

je joins un fichier avec la macro qui renomme les onglets pour exemple

merci

 

[bqtr]

Re : trier les onglets !?

Bonsoir Novice avance !?,

Ce code trie les feuilles selon la date :

Sub Tri_Feuille()

Dim i As Integer
Dim j As Integer

Application.ScreenUpdating = False
With ActiveWorkbook
   For i = 2 To .Worksheets.Count
     For j = 1 To i - 1
       If CDate(Worksheets(i).Name) < CDate(Worksheets(j).Name) Then
          .Worksheets(i).Move before:=.Worksheets(j)
       End If
     Next j
   Next i

End With
Application.ScreenUpdating = True

End Sub

Bonne nuit

 

[Novice avance !?]

Re : trier les onglets !?

génial c'est exactement ce que je cherchais

merci

 

[nike780]

Re : trier les onglets !?

Bonjour,

Est-il possible de transformer ce fichier en .xla afin d'avoir un bouton dans la barre d'outil ce qui éviterait de copier cette macro dans tous mes fichiers.

Merci d'avance.

Cdlt

Michel