mettre les feuilles parv ordre alpha

[Christelle]

Bonjour à tous,

Dans un fichier excel, je possède de nombreuses (vraiment de nombreuses) feuilles que j'ai nommé.

Ma question est la suivante: Y-a-t-il une manipulation pour mettre ces feuilles par ordre alphabétique plutot que de les bouger une par une avec la souris?

Merci de vos réponses.

Christelle

 

[michel]

Bonsoir Christelle

peux tu tester la procedure ci dessous pour trier les onglets par ordre alphabetique


Sub TriAlphaOnglets()
Dim X As Variant
Dim I As Variant
For Each X In ActiveWorkbook.Sheets
For I = 2 To ActiveWorkbook.Sheets.Count
If Sheets(I - 1).Name > Sheets(I).Name Then
Sheets(I - 1).Move After:=Sheets(I)
End If
Next
Next
End Sub


bonne soirée
Michel

 

[Christelle]

Salut Michel,

Merci beaucoup pour ta réponse, mais vu que je ne suis pas très douté, je vais te poser la question idiote:

C'est quoi tout ca? Il faut l'écrire? C'est une formule?

Merci de ton aide.

Christelle

 

[Michel]

Bonjour Christelle

Il n’ y pas de question idiote . le forum XLD est un lieu d’échange et de partage de connaissances

Ce n’est pas une formule . c’est une macro ( pour , par exemple , automatiser des taches répétitives )

Ci joint un fichier exemple

Dans l’onglet A du fichier , j’ai essayé de rédiger un descriptif pour te montrer comment accéder à la macro , comment la copier dans ton classeur et comment la lancer depuis ton classeur
J’ai essayé d’être le plus clair possible , mais n’hésites pas à revenir si tu n’y arrive pas


Bon après midi
Michel

 

[Evelynetfrancois]

super Michel , c'est simpa pour Christelle , je rajouterais
Application.scrennupdating=false comme ci dessous car
avec qq feuil ça va mais avec beaucoup de feuillles ; Attention le mal de mer lol... en tout cas MERCI pour Elle .........

Sub TriAlphaOnglets()
Dim X As Variant
Dim I As Variant
Application.scrennupdating=False
For Each X In ActiveWorkbook.Sheets
For I = 2 To ActiveWorkbook.Sheets.Count
If Sheets(I - 1).Name > Sheets(I).Name Then
Sheets(I - 1).Move After:=Sheets(I)
End If
Next
Next
End Sub

Salut
Evelyne

 

[Christelle]

Merci les garçons. Je vais essayer demain au boulot.

Christelle.