triage des feuiles d'un classeur

[gh4]

Bonjour
J'aimerais suite a la creation d'un classeur mettre les feuilles par ordre
croissant pour ne pas avoir a trier lors de l'impression du classeur
sachant que l'on nombre de feuilles qui constituent le classeur est aleatoire

Merci bcp

 

[BOISGONTIER]

Re : triage des feuiles d'un classeur

Bonsoir,

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

JB

 

[gh4]

Re : triage des feuiles d'un classeur

Merci Bcp J'vais Essayer Cela