Tri à partir de la deuxième feuille

[fouedou77]

Bonjour,

Je sais que l'on a déjà abordé ce sujet mais je n'arrive toujours pas (malgré tout !) à faire un trie sur ce classeur, par ordre alphabétique des feuilles à partir de la deuxième.

Quelqu'un aurait-il la gentillesse de m'aider ?

Je vous remercie beaucoup d'avance.

 

[Pierrot93]

Re : Tri à partir de la deuxième feuille

Bonjour fouedou

regarde le code ci dessous, si j'ai bien compris :

Option Explicit
Sub OngletsOrdreAlpha()
Dim sh As Worksheet, m() As String, i As Byte, ws As Worksheet
Dim t As Byte, u As Byte, temp As String
Application.ScreenUpdating = False
Set ws = Sheets(1)
i = 1
For Each sh In Worksheets
    ReDim Preserve m(1 To i)
    m(i) = sh.Name
    i = i + 1
Next sh
For t = LBound(m) To UBound(m)
    For u = LBound(m) To UBound(m)
        If m(t) < m(u) Then
            temp = m(t)
            m(t) = m(u)
            m(u) = temp
        End If
    Next u
Next t
For i = LBound(m) To UBound(m)
    For Each sh In Worksheets
        If sh.Name = m(i) Then
            sh.Move Sheets(i)
            Exit For
        End If
    Next sh
Next i
ws.Move Sheets(1)
Application.ScreenUpdating = True
End Sub

bonne journée
@+

 

[fouedou77]

Re : Tri à partir de la deuxième feuille

MERCI !

Vous êtes tous trop fort !