triage des feuiles d'un classeur

gh4

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Repose en paix
Re : triage des feuiles d'un classeur

Bonsoir,

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

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 084
Messages
2 085 194
Membres
102 813
dernier inscrit
kaiyi