créer des feuilles automatiquement

Salut Muriel,

Sur disciplus tu as deja une macro pour cela


http://disciplus.simplex.free.fr/xl/feuilles.htm#trieronglets


Bonne soirée Mytå

Bonne nuit tout le monde,

Muriel, en supposant que ta colonne IV de ta feuille ("Page d'accueil") soit vierge et que cette feuille soit la première, tu peux proceder ainsi:

Tu colles tes noms de feuilles dans les dernières cellules de la colonne IV, t utilises le tri Excel et tu redéplaces chaque feuille selon sa place dans le tri... c'est pas très élégant mais ça à l'air de marcher.



Sub TrierFeuille()
Dim ListeFeuilles()
Dim nbfeuilles As Integer
Dim j As Integer
Dim i As Integer


ThisWorkbook.Activate

nbfeuilles = Worksheets.Count


Sheets(1).Activate
For j = 2 To nbfeuilles
Cells(65538 - j, 256).Value = Sheets(j).Name
Next j
Application.ScreenUpdating = False

Range("IV" & 65538 - nbfeuilles & ":IV65536").Select
Selection.Sort Key1:=Range("IV65524"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

ReDim ListeFeuilles(nbfeuilles + 1)
For i = 2 To nbfeuilles
ListeFeuilles(i) = Cells(65536 - nbfeuilles + i, 256).Value
Sheets(ListeFeuilles(i)).Activate
Sheets(ListeFeuilles(i)).Move after:=Sheets(i - 1)
Sheets(1).Activate
Next i
Application.ScreenUpdating = True

End Sub

En espèrant que ça t'aide

@bientôt
Steplof

Re,

Désolé, j'avais pas vu la réponse de Mytå, d'autant plus que ce doit être plus élégant.

Steplof.

Bonjour à tous et toutes

Oui sur Disciplus, la méthode du grand Laurent Longre est of course sûrement qu top.
Pour ma part j'utilise la méthode de Michel Pierron (MPFE) que j'ai postée dans ce forum (voir le fil de discussion)

Bonne Journée ........ T.G.F. !!!!!!!

@+Thierry

merci à vous tous pour votre aide, qui m'a été précieuse puisque ça marche super bien avec la methode du grand laurent longre mais juste une autre petite question comment activer la macro mais avec un boutobn à la place d'un raccourci clavier ???

merci beaucoup pour votre aide à tous,

muriel