Macro pour créer plusieurs feuilles

[anisboy]

Bonjour, étant novice , je ne connais rien au code pour l'instant.
Je sais comment enregistrer une macro sous Excel et la faire fonctionner.
Je souhaite savoir si quelqu'un aurait le code pour créer une macro qui ferait:

• Créerai plusieurs feuilles avec chacunes un nom différents: SC1, SC2, ...
• Chaque feuille aurait un titre situé dans une cellule définit (toujours à la même place)
• chaque feuille aurait les mêmes autres cellules (prenom-nom-taille...)

Merci d'avance pour l'aide.
anisboy

 

[SubEndSub]

Re : Macro pour créer plusieurs feuilles

Bonjour chez vous

Un exemple (sans la gestion d'erreurs)

Sub macro()
Dim i As Long, nbfeuilles As Long
nbfeuilles = InputBox("combien de feuilles à créer?")
For i = 1 To nbfeuilles
Sheets.Add after:=Sheets(Worksheets.Count)
With ActiveSheet
.Name = "S" & i
.Range("a1") = "titre"
.Range("c1") = "nom"
.Range("d1") = "prenom"
End With
Next
End Sub