Trier feuilles Excel
Résolu/Fermé
sandj
Messages postés
20
Date d'inscription
mercredi 8 décembre 2010
Statut
Membre
Dernière intervention
8 octobre 2013
-
8 déc. 2010 à 12:43
rmanager Messages postés 2 Date d'inscription mercredi 23 septembre 2020 Statut Membre Dernière intervention 14 octobre 2020 - 14 oct. 2020 à 11:29
rmanager Messages postés 2 Date d'inscription mercredi 23 septembre 2020 Statut Membre Dernière intervention 14 octobre 2020 - 14 oct. 2020 à 11:29
A voir également:
- Classer feuille excel par ordre alphabétique
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Feuille de score belote excel - Forum Excel
- Feuille de pointage excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Si et excel - Guide
1 réponse
g
Messages postés
1262
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
575
8 déc. 2010 à 13:10
8 déc. 2010 à 13:10
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.
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.
8 déc. 2010 à 13:12
Merci encore
8 déc. 2010 à 13:30
La fenêtre qui s'ouvre est l'éditeur VBA.
- Sur sa gauche dans Projet - VBAProject tu cliques droit sur le nom de ton classeur et tu choisis Insertion > Module.
- Tu copies le code que je t'ai indiqué précédemment et tu le colles dans la partie droite (blanche) de l'éditeur.
- Tu fermes l'éditeur.
Ensuite lorsque tu voudras actionner la macro tu iras dans le menu Outils > Macros > Macros... où tu pourras actionner la macro intitulée TriFeuilsCrois.
Bone suite.