Classer les onglets

[dodineau]

Bonjour à toutes et tous.
J'ai un classeur avec plus de 200 onglets avec des noms créés aléatoirement.
Y a-t-il une fonction pour sélectionner tous les onglets et qu'ils se classent en ordre alphabétique ?
Merci pour votre aide.
A+

 

[riton00]

Bonjour,

A tester
Mettre ce code VBA dans un module, puis lancer la macro à partir du module ou créer un bouton affecter à cette macro

Sub tri_onglet()
    Dim i As Integer, j As Integer, num As Integer, nom As String
    
    For i = 2 To Sheets.Count
        num = 0: nom = Sheets(i).Name
        For j = i - 1 To 1 Step -1
            If Sheets(i).Name < Sheets(j).Name Then num = j
        Next j
        If num > 0 Then Sheets(i).Move before:=Sheets(num)
    Next i
End Sub

Slts

 

[kiki29]

Salut, de l'archéologie informatique : ici ( 14 Janvier 2010 )

 

[dodineau]

Merci pour ces réponses.
Je savais déjà le faire grâce à une macro mais je me demandais s'il existait une fonction directe.