Inverser ordre des onglets

[Arcangeli]

Bonjour le forum,
Ma question va en faire sourire plus d'un, mais je n'ai pas trouvé (ou j'ai mal cherché) la façon d'inverser l'ordre des onglets.
Le faire manuellement, pas de problème, mais lorsque j'en ai une centaine je fatigue.
Si vous avez une idée, je la prends volontier.
Déjà merci

 

[phlaurent55]

Re : Inverser ordre des onglets

Bonjour arcangeli

par macro:

    Sheets("Planning").Move Before:=Sheets(1)

à+
Philippe

 

[jehafa]

Re : Inverser ordre des onglets

Salut

autre solution :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    For I = 2 To Worksheets.Count
        For j = I + 1 To Worksheets.Count
            If Worksheets(I).Name > Worksheets(j).Name Then
            Worksheets(j).Move Sheets(I)
            End If
        Next j
    Next I

End Sub

Tu met ton onglet Planning en premier. Ensuite avant chaque sauvegarde tous les onglets à partir du deuxième se "range" dans l'ordre alphabétique.

tchao Fab

 

[Arcangeli]

Re : Inverser ordre des onglets

Merci à vous deux.
Quelle rapidité et efficacité.
C'est parfait