CLASSER LES ONGLETS par ordre croissant

[pascal21]

bonjour à tous
j'ai une centaine d'onglets nommée par des nombres (ex 124 OU 654)et je cherche le moyen de les classer par ordre croissant
pouvez-vous m'aider
merci

 

[BOISGONTIER]

Re : CLASSER LES ONGLETS par ordre croissant

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Tri/jb-TriOnglet.xls

Si noms onglets num même longueur

Sub tri_ongletDirect()
  Application.ScreenUpdating = False
  For i = 1 To Sheets.Count
     For j = i To Sheets.Count
        If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
          Sheets(i).Move before:=Sheets(j)
          Sheets(j).Move before:=Sheets(i)
        End If
     Next j
  Next i
End Sub

Nom onglets alphanum

Sub tri_ongletDirect2()
  Application.ScreenUpdating = False
  For i = 1 To Sheets.Count
     For j = i To Sheets.Count
        If IsNumeric(Sheets(j).Name) Then
          x = String(30 - Len(Sheets(j).Name), "0") & Sheets(j).Name
        Else
          x = UCase(Sheets(j).Name)
        End If
        
        If IsNumeric(Sheets(i).Name) Then
          y = String(30 - Len(Sheets(i).Name), "0") & Sheets(i).Name
        Else
          y = UCase(Sheets(i).Name)
        End If
 
        If x < y Then
          Sheets(i).Move before:=Sheets(j)
          Sheets(j).Move before:=Sheets(i)
        End If
     Next j
  Next i
End Sub

JB

 

[pascal21]

Re : CLASSER LES ONGLETS par ordre croissant

BONSOIR ET MERCI A VOUS DEUX
j'ai choisi la methode à CARCH MACHIN lol!!!
bon weekend