Classement des onglets par mois

Le
Superman
Bonjour,

Savez comment effectuer un rangement par mois des feuilles d'un
classeur ?

Exemple :

Vous avez 5 feuilles dans un classeur :
Janvier Novembre Décembre Mars Juin

et j'aimerais trouvé Janvier Décembre Juin Mars Novembre

Merci
Maxime !
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Superman
Le #4860301
Quelle imbécile je me suis trompé lol !

En fait ce que je veux aprés le tri c'est :
Janvier Mars Juin Novembre Décembre

Désolé et merci !
JB
Le #4860291
Bonjour,

On suppose que les noms des onglets sont en colonne A de la 1ere
feuille:

a = Sheets(1).Range([A2], [A65000].End(xlUp))
For i = 1 To UBound(a)
On Error Resume Next
Sheets(CStr(a(i, 1))).Move before:=Sheets(i + 1)
Next i


http://cjoint.com/?hBpSewtUhA

JB


On 27 juil, 15:42, Superman
Quelle imbécile je me suis trompé lol !

En fait ce que je veux aprés le tri c'est :
Janvier Mars Juin Novembre Décembre

Désolé et merci !


JB
Le #4860281
Autre solution:

a = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin",
"Juillet")
For i = 1 To UBound(a)
On Error Resume Next
Sheets(CStr(a(i))).Move before:=Sheets(i + 1)
Next i

JB


On 27 juil, 15:42, Superman
Quelle imbécile je me suis trompé lol !

En fait ce que je veux aprés le tri c'est :
Janvier Mars Juin Novembre Décembre

Désolé et merci !


Publicité
Poster une réponse
Anonyme