Trier les onglets

[runnox afpa]

Bonjour tout le monde,

Je souhaiterai trier les onglets d'un classeur par ordre alphabétique (ils possédent chacun un nom), cela est-il possible et par qu'elle manip (sous excel 2003)
Merci par avance

 

[mromain]

Re : Trier les onglets

bonjour runnox afpa et bienvenue sur le forum,

voici une macro qui trie les onglets :

Sub test()
Dim nomOnglet() As String, i As Integer, j As Integer, tmpStr As String
ReDim nomOnglet(1 To 1)
For i = 1 To ThisWorkbook.Sheets.Count
    ReDim Preserve nomOnglet(1 To i)
    nomOnglet(i) = ThisWorkbook.Sheets(i).Name
Next i
For i = LBound(nomOnglet) To UBound(nomOnglet)
    For j = LBound(nomOnglet) To UBound(nomOnglet) - 1
        If nomOnglet(j) > nomOnglet(j + 1) Then
            tmpStr = nomOnglet(j + 1)
            nomOnglet(j + 1) = nomOnglet(j)
            nomOnglet(j) = tmpStr
        End If
    Next j
Next i
For i = LBound(nomOnglet) To UBound(nomOnglet) - 1
    ThisWorkbook.Sheets(nomOnglet(i)).Move before:=ThisWorkbook.Sheets(i)
Next i
End Sub

a+

 

[runnox afpa]

Re : Trier les onglets

Merci pour la macro, mais peut on faire cette manoeuvre sans utiliser de macro et comment ?

 

[MJ13]

Re : Trier les onglets

Bonjour runnox, Romain

Merci pour la macro, mais peut on faire cette manoeuvre sans utiliser de macro et comment ?

Oui, tu peux le faire à la main en cliquant sur l'onglet et en le déplaçant(mais c'est plus long).

C'est pour cela qu'on a inventé les macros.

Sinon, il existe peut-être une astuce, mais je ne la connaît pas.