Tri automatique des onglets par ordre croissant (au delà de 10)

Tahititin · 7 Août 2015

Bonjour à tous,

Je sèche sur un problème de tri automatique d'onglet. Ceux-ci sont créés et incrémentés automatiquement via une macro mais le soucis c'est que dès que je dépasse le n°10, il est placé aprés le n°1 et ainsi de suite jusqu'au 20 qui est placé juste aprés le 2.
Il doit bien y avoir un truc pour contourner ce problème mais je ne vois pas.
Je vous met le fichier en PJ pour que vous puissiez mieux comprendre.

D'avance merci pour votre aide

job75 · 7 Août 2015

Re : Tri automatique des onglets par ordre croissant (au delà de 10)

Bonjour Tahititin,

Dans la macro Worksheet_BeforeDoubleClick, au lieu de :

Code:

For i = 4 To Sheets.Count
    For j = 4 To Sheets.Count
        If Sheets(j).Name < Sheets(i).Name And i < j Then Sheets(j).Move Sheets(i)
        Next j
Next i

utilisez :

Code:

For i = 1 To Sheets.Count
  For j = i + 1 To Sheets.Count
    If Val(Sheets(j).Name) < Val(Sheets(i).Name) Then Sheets(j).Move Before:=Sheets(i)
  Next j
Next i

A+

Tri automatique des onglets par ordre croissant (au delà de 10)

Tahititin

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Discussions similaires