organisation des feuille d'un classeur excel Résolu/Fermé

Question

Bonjour,
J'aimerais savoir s'il existe un petit truc pour ranger des feuille d'un classeur excel 2003 par ordre alphanumérique croissant? 

J'ai un classeur de 200 pages... les ranger une par une je vais pas y arriver... srtout que le nombre de page est amener a encore augenter...

m@rina · Answer

Bonjour,

Solution ici :
http://www.commentcamarche.net/forum/affich 3356070 vba trier les feuilles

m@rina

lermite222 · Answer

Bonjour,
Il n'est pas possibel de renommer une feuille par un nom de feuille déjà existant, il faut donc employer une petite astuce.
Tu copie cette fonction dans UN MODULE GENERAL, genre Module1. (pas un module de feuille)
Sub ChangeNomFeuille()
Dim TB
Dim NB As Integer, i As Integer, CH As Boolean, Buff
    NB = Sheets.Count
    ReDim TB(NB)
    For i = 1 To NB
        TB(i) = Sheets(i).Name
    Next i
'--------------------------------------
Trier:
    CH = False
    For i = 1 To NB - 1
        If TB(i) > TB(i + 1) Then
            CH = True: Buff = TB(i)
            TB(i) = TB(i + 1): TB(i + 1) = Buff
        End If
    Next i
    If CH Then GoTo Trier
'---------------------------------------
    For i = 1 To NB
        Sheets(i).Name = i
    Next i
    For i = 1 To NB
        Sheets(i).Name = TB(i)
    Next i
End Sub
S'il devait y avoir un problème NE SAUVE PAS LE CLASSEUR.
Mais serrait quand même mieux que tu fasse un backup AVANT.
Tu dit.
A+

lermite222 · Answer

Beh évidemment qu'elle ont un nom, ça les trie par ordre croissant.
Tu a tester ?
A+

m@rina · Answer

Bonsoir tous les deux,

mdr !!! J'ai l'impression d'assister à une conversation de sourds-muets... sauf que c'est par écrit...

Pour se résumer, Qhes est content de la macro, mais il trouve dommage que le classement alphabétique mette, par exemple, L3 après L15...

... et que le L65 se trouve avant le L9 !

Problème de classement de nombres... reconnu comme du texte...
Je ne vois pas bien comment faire autrement...

m@rina

eriiic · Answer

Bonsoir tout le monde,

si vraiment les noms ont tous 1 lettre et un nombre on peut adapter la macro de lupin :
Sub TrierOnglets()
    Dim Boucle As Integer, Compteur As Integer
    For Boucle = 1 To Sheets.Count
        For Compteur = 1 To (Boucle - 1)
            If Mid(UCase(Sheets(Boucle).Name), 2, 30) < Mid(UCase(Sheets(Compteur).Name), 2, 30) Then
                Sheets(Boucle).Move before:=Sheets(Compteur)
                Exit For
            End If
        Next Compteur
    Next Boucle
End Sub

A la limite on peut ajouter le test de la 1ère lettre pour ne trier que les feuilles commençant par L...

eric

PS: pas trop le temps mais à la reflexion il faudra peut-être plutôt utiliser qcq chose comme  mid("0000"&Mid(UCase(Sheets(Boucle).Name), 2, 30),4) pour trier...

Qhes · Answer

bonjour, 
en fait oui on s'est un peu perdu :) 

sinon pour ma macro toute les feuilles a partir de la 5eme feuille ont le meme format : L et un nombre.

Je viens d'essayer la nouvelle macro mais la feuille L7 est toujours en les feuille L69 et L700

eriiic · Answer

Bonsoir,

Oui, je l'avais pressenti que j'avais répondu un peu vite ;-) 
et je ne disposais plus de temps pour tester et corriger...
Avec les éléments que tu donnes ça devrait être mieux avec ça :Sub TrierOnglets()
    Dim Boucle As Integer, Compteur As Integer
    For Boucle = 5 To Sheets.Count
        For Compteur = 1 To (Boucle - 1)
            If Right("0000" & Mid(UCase(Sheets(Boucle).Name), 2, 30), 4) < Right("0000" & Mid(UCase(Sheets(Compteur).Name), 2, 30), 4) Then
                Sheets(Boucle).Move before:=Sheets(Compteur)
                Exit For
            End If
        Next Compteur
    Next Boucle
End Sub

C'est limité à des nombres de 4 chiffres, si plus tu mets "00000" et tu changes '30), 4)' en '30), 5)' (2 fois chaque)
Si certaines feuilles ne devant pas être triées sont touchées il faudra ajouter d'autres contrôles if...

eric

Qhes · Answer

c'est vraiment génial...
Ca marche merci bcp!!!

Juste encore une qyuestion... est ce que c'est possible de dire à la macro de ne pas toucher au 5 premières feuilles?

je sais j'en demande bcp... si c trop dite le moi... 

Si c pas possible tant pis :)

lermite222 · Answer

Bonjour,
Je ne sais pas si Eric est présent pour le moment mais en reprenant ses 2 lignes...
    For Boucle = 5 To Sheets.Count
        For Compteur = 1 To (Boucle - 1)
modifiées..
    For Boucle = 6 To Sheets.Count
        For Compteur = 6 To (Boucle - 1)
Je pense que ça ira..
A+

JOLARITALE · Answer

c'est cool cette macro

Qhes · Answer

Merci bcp

Organisation des feuille d'un classeur excel

11 réponses

Discussions similaires