mettre les feuilles parv ordre alpha

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

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

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

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

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

Christelle.