classement onglets

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Juillet 2008

• #2

Re : classement onglets

Bonjour,

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Juillet 2008

• #3

Re : classement onglets

bonjour chilo

Vois si cela te convient

Edit Salut BoisGontier 🙂
Avais pas rafraichi

 

Pièces jointes

• classefeuille.zip

  7.7 KB · Affichages: 188
• classefeuille.zip

  7.7 KB · Affichages: 202
• classefeuille.zip

  7.7 KB · Affichages: 201

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Juillet 2008

• #4

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

 

Pièces jointes

• classefeuille.zip

  9.1 KB · Affichages: 155
• classefeuille.zip

  9.1 KB · Affichages: 158
• classefeuille.zip

  9.1 KB · Affichages: 159

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 3 Juillet 2008

• #5

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

 

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 3 Juillet 2008

• #6

Re : classement onglets

bonsoir le forum

merci boisgontier et pierrejean le petit fonctionne bien
merci encore

 

Vote positif 0 Vote négatif