Tri à partir de la deuxième feuille

fouedou77

XLDnaute Junior
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.
 

Pièces jointes

  • TEST_FHonore.zip
    9 KB · Affichages: 18

Pierrot93

XLDnaute Barbatruc
Re : Tri à partir de la deuxième feuille

Bonjour fouedou

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

Code:
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
@+
 

Discussions similaires

Réponses
10
Affichages
476
  • Résolu(e)
Microsoft 365 Code de tri
Réponses
22
Affichages
501

Statistiques des forums

Discussions
312 931
Messages
2 093 718
Membres
105 794
dernier inscrit
mallet