classement onglets

[chilo]

bonjour le forum

je souhaite classer les feuillets d'un classeur

mes feuilles sont ici 45 27 29 31 41

je souhaite les classer par ordre progressif
27 29 31 41 45

comment est ce possible par vba
merci pour votre contribution

 

[BOISGONTIER]

Re : classement onglets

Bonjour,

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
Formation Excel VBA JB

 

[pierrejean]

Re : classement onglets

bonjour chilo

Vois si cela te convient

Edit Salut BoisGontier 🙂
Avais pas rafraichi

 

[pierrejean]

Re : classement onglets

Re

Une petite adaptation du code de BOISGONTIER pour le cas particulier ou les feuilles sont nommées par des numéros

 

[chilo]

Re : classement onglets

bonjour le forum

merci boisgontier et pierrejean pour la réponse je ne l'ai pas encore essayé mais je pense que cela devrait aller dans tous les cas je vous tiennsoir le forums informer

 

[chilo]

Re : classement onglets

bonsoir le forum

merci boisgontier et pierrejean le petit fonctionne bien
merci encore