Trie des onglets

Bonjour,

Existes-t-il une macro qui trie les onglets d'un fichier excel par ordre alpha croissant ?

Merci de votre aide

Bonjour,

A tester

Sub TrierOnglet()
Dim i As Integer, j As Integer
    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

Bonjour,

J'ai testé votre macro et elle fonctionne ! Cependant, le tri se fait bizarrement !

En effet, j'ai le 1 puis le 10, puis 100 puis 101, puis 102, puis......

Il ne me mets le 2,3,4,5 que après !

Merci de votre participation

Re

Les onglets se nomme comment? 1,2,3,4 ou avec des noms Pierre, Paul, Jacques

La question est :"une macro qui trie les onglets d'un fichier excel par ordre alpha croissant "

Rebonjour,

Les onglets se nomment par un nombre ou un mixte (alpha et num)

Exemple : Facture 00123

Cordialement

Bonjour,

moi j'utilise ceci et c'est parfait

Dim a As Integer, b As Integer
Application.ScreenUpdating = False

affiche_tous ' affiche tous les onglets du classeur

For a = 1 To Sheets.Count
    For b = a + 1 To Sheets.Count
        If UCase(Sheets(a).Name) > UCase(Sheets(b).Name) Then
            Sheets(b).Move Before:=Sheets(a)
        End If
    Next b
Next a

Merci à tous de otre aide !!