Classer des onglets par ordre alphabétique

Bonjour.

Voilà, ma question est dans le titre : dans un fichier, j'aimerais classer une quarantaine d'onglets par ordre alphabétique autrement qu'à la main. Existe-t-il une solution simple pour cette requête?

Merci d'avance

Pascal

Bonsoir,

voici un exemple avec une macro ALT-F11 pour la voir

sinon a l'ajout dans une cellule d'une donnée les onglets se tries automatiquements

Merci

Mais j'ai un souci, je ne vois pas comment l'utiliser. Je suis nul en macro!!!!

En faisant ALT-F11 je la vois bien, mais comment l'utiliser?

Pascal

Bonjour,

tu ouvre ton classeur, puis tu fait ALT-F11 et tu copie simplement ceci

Private Sub Worksheet_Change(ByVal Target As Range)

For i = 1 To Worksheets.Count

For j = i + 1 To Worksheets.Count

If Worksheets(i).Name > Worksheets(j).Name Then

Worksheets(j).Move Sheets(i)

End If

Next j

Next i

End Sub

pres quoi tu tape dans une cellule un chiffre ou une lettre et tout tes onglets vont ce triées

Bonjour

J'ai fait ce que tu m'as dit dans la "Feuil1" et j'ai mis la lettre A dans la case C6

Mais rien ne se passe ????

J'ai ajouté une copie du fichier pour voir ce que j'ai fait

Re,

chez moi ici fonctionne super bien, a tu activez les macro ?

sinon voici

Ok merci.

J'ai compris mon erreur : j'avais enregistré en .xls au lieu de .xlsm

Ca marche !

Encore merci

Pascal

bonjour,

super cette macro

mais pour reclasser les onglet comme avant ???

(ordre de création)

ou dans un ordre ou leur nom serait affiché dans une autre feuille

dans mon fichier TEST le tris par ordre alpha fonctione mais pas le tri par N° de lot (ou N° de feuil (Feuiln))

Merci ...