Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Classement des onglets par mois

Classement des onglets par mois

3 réponses
Avatar
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=E9cembre Mars Juin

et j'aimerais trouv=E9 Janvier D=E9cembre Juin Mars Novembre

Merci
Maxime !
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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 !
Avatar
JB
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 wrote:
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 !


Avatar
JB
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 wrote:
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 !