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

[Tahititin]

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]

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

Bonjour Tahititin,

Dans la macro Worksheet_BeforeDoubleClick, au lieu de :

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 :

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+