Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel trier les onglets de feuilles

trier les onglets de feuilles

7 réponses
Avatar
Sylvie
Bonjour,
J'ai un classeur avec plusieurs onglets de feuilles, portant des noms
de personnes.
Je souhaiterai que les onglets soient rang=E9s par ordre alphab=E9tique, y
a-t-il une possibilit=E9 de le faire (autre que la mani=E8re manuelle bien
entendu).
Merci
SD
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

http://boisgontierjacques.free.fr/fichiers/Tri/jb-TriOnglet.xls

JB

On 1 mar, 15:25, Sylvie wrote:
Bonjour,
J'ai un classeur avec plusieurs onglets de feuilles, portant des noms
de personnes.
Je souhaiterai que les onglets soient rangés par ordre alphabétique, y
a-t-il une possibilité de le faire (autre que la manière manuelle bie n
entendu).
Merci
SD


Avatar
eneric
bonjour jb
dans ton exemple
l'onglet nommé "5" restera classé derriere le "22"
alors que en theorie il devrait etre en 2eme positin
donc ton code teste uniquement le 1er chiffre
merci
Bonjour,

http://boisgontierjacques.free.fr/fichiers/Tri/jb-TriOnglet.xls

JB

On 1 mar, 15:25, Sylvie wrote:
Bonjour,
J'ai un classeur avec plusieurs onglets de feuilles, portant des noms
de personnes.
Je souhaiterai que les onglets soient rangés par ordre alphabétique, y
a-t-il une possibilité de le faire (autre que la manière manuelle bien
entendu).
Merci
SD





--
eneric
Avatar
michdenis
Bonjour, un fichier de Daniel Maher,

http://cjoint.com/?dbqMtI2iQ3




"Sylvie" a écrit dans le message de groupe de discussion :

Bonjour,
J'ai un classeur avec plusieurs onglets de feuilles, portant des noms
de personnes.
Je souhaiterai que les onglets soient rangés par ordre alphabétique, y
a-t-il une possibilité de le faire (autre que la manière manuelle bien
entendu).
Merci
SD
Avatar
eneric
merci denis
Bonjour, un fichier de Daniel Maher,

http://cjoint.com/?dbqMtI2iQ3




"Sylvie" a écrit dans le message de groupe de discussion :

Bonjour,
J'ai un classeur avec plusieurs onglets de feuilles, portant des noms
de personnes.
Je souhaiterai que les onglets soient rangés par ordre alphabétique, y
a-t-il une possibilité de le faire (autre que la manière manuelle bien
entendu).
Merci
SD



--
eneric
Avatar
JB
Bonjour,

Il faut utiliser cette version:

Sub tri_ongletDirect2()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
For j = i To Sheets.Count
If IsNumeric(Sheets(j).Name) Then
x = String(30 - Len(Sheets(j).Name), "0") & Sheets(j).Name
Else
x = UCase(Sheets(j).Name)
End If

If IsNumeric(Sheets(i).Name) Then
y = String(30 - Len(Sheets(i).Name), "0") & Sheets(i).Name
Else
y = UCase(Sheets(i).Name)
End If

If x < y Then
Sheets(i).Move before:=Sheets(j)
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
End Sub

JB

On 1 mar, 15:48, eneric wrote:
bonjour jb
dans ton exemple
l'onglet nomm "5" restera class derriere le "22"
alors que en theorie il devrait etre en 2eme positin
donc ton code teste uniquement le 1er chiffre
merci

> Bonjour,

>http://boisgontierjacques.free.fr/fichiers/Tri/jb-TriOnglet.xls

> JB

> On 1 mar, 15:25, Sylvie wrote:
>> Bonjour,
>> J'ai un classeur avec plusieurs onglets de feuilles, portant des noms
>> de personnes.
>> Je souhaiterai que les onglets soient rang s par ordre alphab tique, y
>> a-t-il une possibilit de le faire (autre que la mani re manuelle bien
>> entendu).
>> Merci
>> SD

--
eneric


Avatar
JB
Il faut utliser la version TriOngletDirect2

Sub tri_ongletDirect2()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
For j = i To Sheets.Count
If IsNumeric(Sheets(j).Name) Then
x = String(30 - Len(Sheets(j).Name), "0") & Sheets(j).Name
Else
x = UCase(Sheets(j).Name)
End If

If IsNumeric(Sheets(i).Name) Then
y = String(30 - Len(Sheets(i).Name), "0") & Sheets(i).Name
Else
y = UCase(Sheets(i).Name)
End If

If x < y Then
Sheets(i).Move before:=Sheets(j)
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
End Sub


JB

On 1 mar, 15:48, eneric wrote:
bonjour jb
dans ton exemple
l'onglet nomm "5" restera class derriere le "22"
alors que en theorie il devrait etre en 2eme positin
donc ton code teste uniquement le 1er chiffre
merci

> Bonjour,

>http://boisgontierjacques.free.fr/fichiers/Tri/jb-TriOnglet.xls

> JB

> On 1 mar, 15:25, Sylvie wrote:
>> Bonjour,
>> J'ai un classeur avec plusieurs onglets de feuilles, portant des noms
>> de personnes.
>> Je souhaiterai que les onglets soient rang s par ordre alphab tique, y
>> a-t-il une possibilit de le faire (autre que la mani re manuelle bien
>> entendu).
>> Merci
>> SD

--
eneric


Avatar
eneric
merci jb

--
eneric