Inverser ordre des onglets

Arcangeli · 23 Août 2010

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 · 23 Août 2010

Re : Inverser ordre des onglets

Bonjour arcangeli

par macro:

Code:

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

à+
Philippe

jehafa · 23 Août 2010

Re : Inverser ordre des onglets

Salut

autre solution :

Code:

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 · 23 Août 2010

Re : Inverser ordre des onglets

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

Inverser ordre des onglets

Arcangeli

XLDnaute Occasionnel

Pièces jointes

phlaurent55

Nous a quittés en 2020

jehafa

Guest

Arcangeli

XLDnaute Occasionnel

Discussions similaires

Inverser ordre des onglets

Arcangeli

XLDnaute Occasionnel

Pièces jointes

phlaurent55

Nous a quittés en 2020

jehafa

Guest

Arcangeli

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency