Création de feuilles

[Pat]

Bonjour,
voilà ce qui m'amène: je voudrais savoir comment créer automatiquement un nombre de feuilles suivant la quantité que je rentrerai dans une cellule de la feuille n°1: par exemple je rentre 5, je clique sur un bouton 'créer feuilles', il faudrait que 5 nouvelles feuilles soient ajoutées à mon classeur, je pense qu'il faut utiliser une macro mais je n'y arrive pas. Je voudrait bien aussi que les nouvelles feuilles se renomment aussi automatiquement par exemple : tableau 1;tableau 2 .......
Est ce que quelqu'un aurait l'amabilité de me donner un coup de main.
Merci beaucoup en attendant!!!!

 

[JYLL]

Bonjour,

Voilà une petite macro qui devrait faire l'affaire.

Bon test.

Amicalement.

JYLL


Sub Creation_et_Nom_Feuille()
Dim Nb_Feuilles As Integer
Dim Nom_Feuille As String
Dim I As Integer
Nb_Feuilles = InputBox('Nombres de feuilles à créer', 'Saisie')

For I = 1 To Nb_Feuilles
Nom_Feuille = InputBox('Nom de la feuille à créer : ' & CStr(I), 'Saisie')
Sheets.Add
ActiveSheet.Name = Nom_Feuille
Next I

End Sub

 

[JC de Lorient]

salut tout le monde

la même mé plus courte !

Sub Macro5()

Dim x, y As Byte

x = InputBox('combien de feuilles')

For y = 1 To x
Sheets('test').Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = 'Test' & y
Next

End Sub


JC

 

[Pat]

Salut à tous les deux ,
et surtout un grand merci mpor votre aide, mais car ily a toujours un mais, pour vous qui êtes des spécialistes cela semble clair, mais pour moi qui suis un simple utilisateur d'une bête feuille de calcul, je ne comprend pas grand chose.
Ou et comment copier ces lignes ???
Merci encore pour votre aide
@+