Trier feuilles Excel [Résolu/Fermé]

Messages postés
20
Date d'inscription
mercredi 8 décembre 2010
Statut
Membre
Dernière intervention
8 octobre 2013
- - Dernière réponse :  Anne - 26 févr. 2016 à 15:57
Bonjour,

J'ai un fichier Excel comprenant 140 feuilles... je souhaiterais les mettre en ordre alphabétique. Es-ce possible ? si oui, pourriez -vous me donner la démarche à suivre ?

Je vous remercie d'avance.

Bonne journée

Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
1270
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
503
7
Merci
Bonjour,

Je ne pense pas qu' Excel fasse ce tri directement.
Par contre tu peux utiliser la macro suivante après l'avoir copiée dans un module standart:

Sub TriFeuilsCrois()
'trie les feuilles par ordre croissant
Dim I As Integer, J As Integer
For I = 1 To Sheets.Count 'pour débuter le tri à la feuille x remplacer For I = 1 pat For I = x
For J = 1 To I - 1 'pour débuter le tri à la feuille x remplacer For J = 1 par For J = x
If UCase(Sheets(I).Name) < UCase(Sheets(J).Name) Then 'pour tri décroissant remplacer < par >
Sheets(I).Move Before:=Sheets(J)
Exit For
End If
Next J
Next I
End Sub

Bonne journée.

Dire « Merci » 7

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 62884 internautes nous ont dit merci ce mois-ci

bravo !
Merci bcp j'étais en galère.
Genial !!
En remplaçant le 1 par un x comme indiqué, cela ne fonctionne pas pour la ligne :

If UCase(Sheets(I).Name) < UCase(Sheets(J).Name) Then 'pour tri décroissant

Je chercherai à trier des onglets seulement de la feuille nommée "bonjour" à la feuille nommée "au revoir" , ces feuilles là ne sont pas incluse dans le tri.

Avez vous la solution?
> Deux Z -
C'est normal, tu dois remplacer x par le nombre de la page voulue !
Merci beaucoup. la manip fonctionne très bien, c'est clair et bien expliqué!