Tri des feuillets par ordre alphabétique

[Stéph79]

Bonjour à tous,

Je n'ai pas trouver sur le forum comment trier les feuillets par ordre alphabétique en VBA.

Merci de bien vouloir m'aiguiller.
D'avance merci.

Stéph79

 

[AeroPlanneur]

bonjour Stéph,

une macro toute faite de Laurent Longre

Ce lien n'existe plus

cordialement

 

[CBernardT]

Bonjour Stéph79 et AeroPlanneur,

Je te propose une approche plus simple :

Sub TriAlphaFeuilles()
Dim i As Byte, j As Byte
For i = 1 To Sheets.Count
For j = 1 To i - 1
If UCase(Sheets(i).Name) < UCase(Sheets(j).Name) Then
Sheets(i).Move before:=Sheets(j)
Exit For
End If
Next j
Next i
End Sub

Cordialement

Bernard

 

[Stéph79]

Bonjour CBernardT et AeroPlanneur,

Merci pour vos réponses.


Même si le lien proposé par AeroPlanneur semble très intéressant, je vais opter pour la réponse de CBernardT qui pour moi est bien + simple.

Merci beaucoup.

Stéph79