Création nombre de feuilles variable

Bonjour,
Voila je suis en train de faire une macro et je dois créer un nombre de feuilles variable en fonction d'une données d'une de mes feuilles et je ne comprend pas trop pourquoi il ne les fait pas.
Voila le code

Code:

---

1 2 3 4 5 6 7

nbfeuilles = Sheets("donner traiter").Range("c11") For i = 1 To nbfeuilles Sheets.Add after:=Sheets(Worksheets.Count) With ActiveSheet Name = "cycle" & i End With Next

---

Bonsoir,
Comme ceci cela ira mieux

Code:

---

1 2 3 4 5

nbfeuilles = Sheets("Feuil2").Range("c11") For i = 1 To nbfeuilles Sheets.Add after:=Sheets(Worksheets.Count) Sheets(Worksheets.Count).Name = "Cycle" & i Next

---

il m'ajoute toujours pas les feuilles :cry:

Bonjour,

La macro de Corona fait exactement ce que tu souhaites faire.

Affiches nous le code que tu as mis dans ton classeur pour voir ce qui se passe

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Sub Macro2() ' 'Ouvrire boite de dialogue   Application.Dialogs(xlDialogOpen).Show 'copie du fichier Range("A1:E57618").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Paste Sheets("Feuil1").Select Sheets("Feuil1").Name = "donner traiter"   'suppresion d'une ligne sur deux For i = 20 To 57618 Cells(i, 1).EntireRow.Delete If Cells(i, 1) = "" Then Exit Sub Cells(i + 1).Select Next i 'creation nombre de feuille nbfeuilles = Sheets("Feuil2").Range("c11") For i = 1 To nbfeuilles Sheets.Add after:=Sheets(Worksheets.Count) Sheets(Worksheets.Count).Name = "Cycle" & i Next   End Sub

---

voila mon code complet

Bonjour,
Je suis désolé mais je fais toujours un test avant de publier mes réponses donc je confirme que le code fonctionne.
Es-tu sûr que la cellule C11 de la feuille nommée "Feuil2" contient bien un nombre ?
Place un debug.print nbfeuilles pour vérifier si la variable nbfeuilles contient bien une valeur supérieure à 0

Code:

---

1 2 3 4 5 6

nbfeuilles = Sheets("Feuil2").Range("c11") debug.print nbfeuilles For i = 1 To nbfeuilles Sheets.Add after:=Sheets(Worksheets.Count) Sheets(Worksheets.Count).Name = "Cycle" & i Next

---

Petite remarque, les Select et Selection sont à proscrire. Ils sont inutiles et gourmands en temps d'exécution.
De plus, pourquoi trois fois la même instruction ?

Code:

---

1 2 3

Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select

---

j'ai essayez votre macro a part , elle fonctionne bien , mais incorporé dans la mienne elle ne veut pas se lancer j'ai l'impression
pour les 3 instruction je ne sais pas trop , j'utilise l'enregistreur de macro donc apres j'ai des petite anomalie comme celle ci.
la cellule C11 de la feuille deux contient bien une valeur , qui est de 4
je vais réessayé avec votre corrections
par contre il prend pas mal de temp a tout executer , mon curseur part tout a droite du tableau lorsqu'il supprime une ligne sur deux

Pour supprimer une ligne il vaut mieux partir de la fin

Code:

---

1 2 3 4 5

Dim i As Long   For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -2 Rows(i).Delete Next i

---

j'ai un débogage a la ligne ou je prend la cellule c11
l'indice n'appartient pas a la selection

La feuil2 est elle existante?

bon , j'ai un peut modifier la chose ,ma feuille 2 est devenue ma feuille 1 et la je relance pour voir ce que sa me donne

c'est bon sa fonctionne merci a vous tous :ccool:

Sans ta dernière version de code qui ne fonctionne pas, impossible de te dire.

ce probleme est regler , merci de votre aide
j'en aurait surment besoin bientot encore pour un probleme de copier une colone dans chaque feuille sachant que le nombre de colone et variable mais egale au nombre de feuille