classement feuilles ordre alpha dans classeur

[alex33]

Bonjour,

Je voudrais connaître la manip pour classer les feuilles dans un classeur dans l'ordre chrono ou alphabétique, sans les déplacer une par une
Merci beaucoup

Alex33

[Dan]

Bonjour,

Essaie ce code :

Code: Tout sélectionner

Sub TrierFeuilles()
'Macro Dan pour alex33 le 28/11/2010
Dim WS As Worksheet
Dim I As Byte
Application.ScreenUpdating = False
For Each WS In thisWorkbook.Sheets
For I = 2 To ThisWorkbook.Sheets.Count
If Sheets(I - 1).Name > Sheets(I).Name Then
Sheets(I - 1).Move After:=Sheets(I)
End If
Next
Next
End Sub

Code à associer éventuellement à un bouton ou à exécuter par Outils / Macro / Macro et sélectionner la macro puis cliquer sur le bouton "Exécuter"

Si ok, n'oublie pas ce cliquer sur le V vert pour cloturer le fil..

Amicalement

[alex33]

Bonsoir,
J'arrive à mettre mes feuilles en surbrillance et après j'ai visual basic et là je suis larguée , mes connaissances sont trop petites , je ne sais pas aller au bout et l'anglais pas trop non plus
merci quand même

[Dan]

re,

J'arrive à mettre mes feuilles en surbrillance...

Pas sur d'avoir compris le pb mais bon je suppose que le souci est pour placer le code.

- ALT + F11 pour aller dans VBA
- Menu Insertion et choisir Module
- coller le code que j'ai donné ci-avant
- fermer VBA

Ensuite pour exécuter le code, aller dans Outils / Macro / macro puis sélectionne le code et clique sur "Exécuter"
Edit de Nad : sous 2007, aller dans l'onglet Développeur==> Macro puis sélectionne le code et clique sur "Exécuter"
Si tu ne vois pas l'onglet Développeur, Bouton OFFICE ==> Options excel - coche "Afficher l'onglet Développeur dans le ruban"

Amicalement