Discussion :

[baptbapt]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[conconbrr]

Essaie ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[baptbapt]

Merci conconbrr

des bons conconbre a la vinaigrette, se donne faim.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

enfin, pas sur que sa marche

[baptbapt]

Simple erreur, maintenant c'est bon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

tiens voila ...:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

.