créer des feuilles automatiquement

[muriel]

Bonjour à tous et en particulier valérie,

j'ai fait un une macro qui créer une copie automatiquement d'une feuille modèle appelé dans l'exemple ("Page d'acceuil") mais le hic c'est que je voudrais ensuite qu'il me classe les feuilles crées par ordre alphabetique, voici la macro:

Sub boutoncreerfiche_QuandClic()

Set modèle = ThisWorkbook.Worksheets("Page d'acceuil")
modèle.Copy after:=modèle
ActiveSheet.Name = InputBox("Nom de la nouvelle feuille :")

End Sub

d'avance merci pour votre aide

muriel

 

[Mytå]

Salut Muriel,

Sur disciplus tu as deja une macro pour cela


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


Bonne soirée Mytå

 

[steplof]

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

 

[steplof]

Re,

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

Steplof.

 

[@+Thierry]

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

 

[muriel]

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