Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Classer des onglets par ordre alphabetique

Classer des onglets par ordre alphabetique

3 réponses
Avatar
ARCHEO-PIERRE
Bonjour,

J'ai un fichier excell sur lequel j'ai pr=E8s de 80 onglets.=20
Chaque onglet =E0 un nom de tiers. Ces tiers sont tous=20
m=E9lang=E9s.
J'ai besoin de reclasser tous ces onglets par ordre=20
alphabetique. Comment faire ?

D'avance mer=E7i.
Signaler un problème avec ce contenu

3 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
papou
Bonjour
Avec une macro :
Sub TrieOnglets()
Dim F
Dim i As Long
For Each F In ActiveWorkbook.Sheets
For i = 2 To ActiveWorkbook.Sheets.Count
If UCase(Sheets(i - 1).Name) > UCase(Sheets(i).Name) Then _
Sheets(i - 1).Move After:=Sheets(i)
Next i
Next F
End Sub
Cordialement
Pascal

"ARCHEO-PIERRE" a écrit dans le
message de news:2a4001c49b28$66956380$
Bonjour,

J'ai un fichier excell sur lequel j'ai près de 80 onglets.
Chaque onglet à un nom de tiers. Ces tiers sont tous
mélangés.
J'ai besoin de reclasser tous ces onglets par ordre
alphabetique. Comment faire ?

D'avance merçi.
Avatar
YannX
Il suffit d'aller voir sur (par exemple)
http://www.excelabo.net/xl/feuilles.php#trieronglets

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Avec une macro :
Sub TrieOnglets()
Dim F
Dim i As Long
For Each F In ActiveWorkbook.Sheets
For i = 2 To ActiveWorkbook.Sheets.Count
If UCase(Sheets(i - 1).Name) > UCase(Sheets(i).Name) Then _
Sheets(i - 1).Move After:=Sheets(i)
Next i
Next F
End Sub
Cordialement
Pascal

"ARCHEO-PIERRE" a écrit dans le
message de news:2a4001c49b28$66956380$
Bonjour,

J'ai un fichier excell sur lequel j'ai près de 80 onglets.
Chaque onglet à un nom de tiers. Ces tiers sont tous
mélangés.
J'ai besoin de reclasser tous ces onglets par ordre
alphabetique. Comment faire ?

D'avance merçi.




Avatar
archeo-pierre
Ca marche
grand merçi à toi
-----Message d'origine-----
Bonjour
Avec une macro :
Sub TrieOnglets()
Dim F
Dim i As Long
For Each F In ActiveWorkbook.Sheets
For i = 2 To ActiveWorkbook.Sheets.Count
If UCase(Sheets(i - 1).Name) > UCase(Sheets
(i).Name) Then _

Sheets(i - 1).Move After:=Sheets(i)
Next i
Next F
End Sub
Cordialement
Pascal

"ARCHEO-PIERRE" a
écrit dans le

message de news:2a4001c49b28$66956380$
Bonjour,

J'ai un fichier excell sur lequel j'ai près de 80 onglets.
Chaque onglet à un nom de tiers. Ces tiers sont tous
mélangés.
J'ai besoin de reclasser tous ces onglets par ordre
alphabetique. Comment faire ?

D'avance merçi.


.