litelsousa
XLDnaute Occasionnel
Bonjour,
Je cherche un code me permettant de classer mes onglets par ordre numérique.
J'ai trouvé celui-ci:
Mon seul petit soucis, c'est que je n'ai pas réussi à faire que les lettre soient placées avant les chiffres.
(l'onglet "liste" sera mis après les onglets "2501" et "2502" et j'aimerais le contraire).
En vous remerciant de votre aide
Je cherche un code me permettant de classer mes onglets par ordre numérique.
J'ai trouvé celui-ci:
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
Mon seul petit soucis, c'est que je n'ai pas réussi à faire que les lettre soient placées avant les chiffres.
(l'onglet "liste" sera mis après les onglets "2501" et "2502" et j'aimerais le contraire).
En vous remerciant de votre aide