XL 2010 Comment trier des onglets par ordre croissant

[aurelio.ewane]

bonjour voila mon problème
Ma question cest de savoir comment trier les onglets d'un classeurs
je precise que jen ai 27 et parfois plus disons que c'est variables ca peut etre même moins
je veux les trier par ordre
les classeurs sont nommées ainsi avec les même noms suivis d'un numéros
par exemple
class
class 2
class 20
class 1
class 5
class 5
class 21
class 6
class 8
class 2
class 20
class 11
class 15
class 12
class 18
class 16
class 4


priere de me donner un code VBA qui le fait

 

[JHA]

Bonjour à tous

Tu peux mettre ce code dans un module

Sub TrierOngletsAlphabetiquement()
    Dim i As Integer, j As Integer
    Dim NomTemp As String
    For i = 1 To ThisWorkbook.Sheets.Count - 1
        For j = i + 1 To ThisWorkbook.Sheets.Count
            If UCase(ThisWorkbook.Sheets(j).Name) < UCase(ThisWorkbook.Sheets(i).Name) Then
                ThisWorkbook.Sheets(j).Move Before:=ThisWorkbook.Sheets(i)
            End If
        Next j
    Next i
End Sub

• Appuyez sur Alt + F11 pour ouvrir l’éditeur VBA.
• Cliquez sur Insertion > Module.
• Collez le code dans le module
• Fermez l’éditeur, puis lancez la macro en appuyant sur Alt + F8, sélectionnez TrierOngletsAlphabetiquement, puis cliquez sur Exécuter.

JHA

 

[Dranreb]

Bonjour.
Ceci classe sur les numéros qui suivent "class " :

Option Explicit
Sub ClassOngl()
   Dim Wsh As Worksheet, TB() As Boolean, N As Integer, WshP As Worksheet
   ReDim TB(1 To 99)
   For Each Wsh In Worksheets
      If Wsh.Name Like "class *" Then TB(Mid$(Wsh.Name, 7)) = True
      Next Wsh
   For N = 1 To 99
      If TB(N) Then
         Set WshP = Wsh: Set Wsh = Worksheets("class " & N)
         If WshP Is Nothing Then Wsh.Move before:=Worksheets(1) Else Wsh.Move After:=WshP
         End If
      Next N
   End Sub

 

[djidji59430]

Bonjour à tous,

Deja dans ces cas la, et c'est valable pour n'importe quoi, on les nomme class 01 ; class 02 , etc et il n"y a pas de problémes.
Autrement dit on met autant de chiffres que le nombre le plus elelvé. si le dernier, c'est class 452, le premier c'est class 001

Crdlmt

 

[aurelio.ewane]

Bonjour à tous,

Deja dans ces cas la, et c'est valable pour n'importe quoi, on les nomme class 01 ; class 02 , etc et il n"y a pas de problémes.
Autrement dit on met autant de chiffres que le nombre le plus elelvé. si le dernier, c'est class 452, le premier c'est class 001

Crdlmt

Mercie pour ta reponse