Classer les feuilles d'un classeur

Sub TrieFeuilles()
'Laurent Longre
Dim I As Integer
Dim J As Integer
Dim Min As Integer
Dim ModeCalcul As Integer

ModeCalcul = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

With ActiveWorkbook.Worksheets
For I = 1 To .Count - 1
Min = I
For J = I + 1 To .Count
If .Item(J).Name < .Item(Min).Name Then Min = J
Next J
If Min <> I Then .Item(Min).Move before:=Worksheets
(I)
Next I
End With

Application.Calculation = ModeCalcul
Application.ScreenUpdating = True

End Sub

-----Message d'origine-----
Bonjour !
Novice sous Excel. Et oui, il faut un début à tout ...

Existe-t-il un moyen de classer par ordre alphatique les
feuilles d'un

classeur ?

Merci

Spidey


.

Bonjour,

Voici ce que dit l'aide de Excel:

"Pour déplacer des feuilles à l'intérieur du classeur en cours, vous pouvez
faire glisser les feuilles sélectionnées sur la rangée des onglets de
feuille. Pour copier les feuilles, maintenez la touche CTRL enfoncée et
faites-les glisser ; relâchez le bouton de la souris avant de relâcher la
touche CTRL."

Mais je suppose que tu n'es pas aussi novice et que tu cherches quelque
chose de plus rapide...

William



"Spidey" <crazypointspider@wanadoo.fr> a écrit dans le message de news:
cfg370$d1o$1@news.tiscali.fr...

Bonjour !
Novice sous Excel. Et oui, il faut un début à tout ...

Existe-t-il un moyen de classer par ordre alphatique les feuilles d'un
classeur ?

Merci

Spidey

La plus complète (que je sache) :

http://www.excelabo.net/moteurs/compteclic.php?nom=dma-trieronglets

AV