Tri des feuillets par ordre alphabétique

Stéph79 · 27 Mai 2006

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 · 27 Mai 2006

bonjour Stéph,

une macro toute faite de Laurent Longre

Ce lien n'existe plus

cordialement

CBernardT · 27 Mai 2006

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 · 27 Mai 2006

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

Tri des feuillets par ordre alphabétique

Stéph79

Guest

AeroPlanneur

Guest

CBernardT

XLDnaute Barbatruc

Stéph79

Guest

Discussions similaires

Tri des feuillets par ordre alphabétique

Stéph79

Guest

AeroPlanneur

Guest

CBernardT

XLDnaute Barbatruc

Stéph79

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency