XL 2010 Arranger par ordre alphabétique

lestoiles1

XLDnaute Occasionnel
Bonjour, comment arranger ces feuilles par ordre alphabétique?

Merci
 

Pièces jointes

  • Capture.JPG
    Capture.JPG
    25.1 KB · Affichages: 11

Lolote83

XLDnaute Barbatruc
Salut,
Une recherche sur le site de MONSIEUR Jacques Boisgontier http://boisgontierjacques.free.fr/ et voilà le résultat

VB:
Sub Tri_OngletDirect()
    '------------------------------------------------------------------------------
    '  Pris sur le site de Jacques Boisgontier (http://boisgontierjacques.free.fr/)
    '------------------------------------------------------------------------------
    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
@+ Lolote83
 

Lolote83

XLDnaute Barbatruc
Re salut,
Pour cela, il suffit de copier le code ci-dessus et d'exécuter la macro pour que le tri se fasse.
Pour faire cela :
Clic droit sur un onglet et choisir "Visualiser le code" ou ALT+F11
Puis Insertion et choisir Module
Coller alors le code ci-dessus

Pour exécuter alors le code, se positionner sur la première ligne du code et F5 (par exemple)
@+ Lolote83
 

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 838
dernier inscrit
Christelle.B86