XL 2010 Arranger par ordre alphabétique

[lestoiles1]

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

Merci

 

[Lolote83]

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

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

 

[lestoiles1]

Je croyais que c'est facile mais malheureusement je suis qu'un débutant. Merci quand meme.

 

[Lolote83]

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

 

[lestoiles1]

Merci bcp