Création d'une feuille en VBA

Bonjour a tous

Et oui, question toute bête.

Comment créer des feuilles à l'aide de VBA, j'ai trouvé comment créer des classeurs, mais pas de feuilles.

Code:

---

1 2 3 4

' Saisie du nombre de tranches d'analyse Do NbTr = InputBox("Entrez une valeur de 1 à 256", "NOMBRE DE TRANCHES DE 2 MINUTES", 10) Loop Until (Val(NbTr) > 0) And (Val(NbTr) < 257)

---

De plus j'aimerai saisir NbTr feuilles supplémentaire, correspondant a un nombre de tranche, défini avec la formule précédente.
Peut-on créer des feuilles avec une boucle?


Merci

Essaie ça :

Code:

---

1 2	Sheets.Add Activesheet.name="Ton nom"

---

Merci conconbrr

des bons conconbre a la vinaigrette, se donne faim.

Bon sa fonctionne, sinon y pas moyen de faire une boucle

Code:

---

1 2 3 4

For p=1 to NbTr Sheets.Add ActiveSheet.Name = "Feuil"&3+p" next p

---

enfin, pas sur que sa marche

Simple erreur, maintenant c'est bon

Code:

---

1 2 3 4

For p = 1 To NbTr Sheets.Add ActiveSheet.Name = "Feuil" & 3 + p Next p

---

Par contre comment faire pour qu'il les mettent dans le bon sens, et non pas à l'envers
j'ai 1/13/12/.../2/3

étant donnée que j'ai créée 10 feuilles

tiens voila ...:

Code:

---

1 2 3 4 5 6 7 8

Dim s As Worksheet   For p = 1 To NbTr   Set s = Sheets.Add(After:=Sheets(Sheets.Count)) s.Name = "Feuil" & 3 + p Next p

---

.