VBA création feuilles nommées numerotés

Bonjour,

Je souhaite crée une macro qui me crée 1 nouvelle feuille j'ai cherché et trouvé ceci:

Code:

---

1 2 3 4

Dim shtoto As Worksheet Set shtoto = Sheets.Add(After:=Sheets(Sheets.Count)) shtoto.Name = "Sem" Set shtoto = Nothing

---

2 petits pb

1. Quand il me crée la feuille "Sem" il en crée toujours une autre (du genre feuil20) comment faire pour n'avoir que la feuille "Sem" de crée.

2. Dans l'absolu je voudrai pouvoir les numérotés Sem1 Sem2 Sem3. Quand je clic sur le bouton associé à ma macro si Sem1 existe je voudrai qu'il crée Sem2 si Sem2 existe je voudrai qu'il crée Sem3 ect...

Merci pour vos réponse j’espère que j'ai été assez clair et que les réponses n'existe pas déjà (pas trouvé).

Bonne journée à tous

Rq: je débute sur VBA avec Excel 2010 prof plus

Bonjour,
une proposition à adapter :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Macro1() Dim Ws As Worksheet, NomFl As String, x As Integer x = 1 For Each Ws In Worksheets If Ws.Name = "sem" & x Then x = x + 1 End If Next Ws NomFl = "sem" & x Sheets.Add After:=Sheets("sem" & x - 1) ActiveSheet.Name = NomFl End Sub

---

Merci pour cette réponse casefayere

Pour l'instant j'ai une erreur : "Erreur d'exécution 9, l'indice n'appartient pas à la sélection

Le débogueur pointe la ligne 10

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Macro1() Dim Ws As Worksheet, NomFl As String, x As Integer x = 1 For Each Ws In Worksheets If Ws.Name = "sem" & x Then x = x + 1 End If Next Ws NomFl = "sem" & x Sheets.Add After:=Sheets("sem" & x - 1) ActiveSheet.Name = NomFl End Sub

---

Etant novice en VBA je ne comprend pas tout du code que tu as mis alors je vais étudier ça de mon coté afin de comprendre les termes qui me sont inconnu et de l'adapter à ce que je veux faire.

si je bloque je reviendrais vers vous

encore merci

bonjour,

au premier tour de boucle tu n'as pas de feuille semx-1

si tu n'as pas de problème pour l’ordre des feuilles tu peu remplacer ta ligne 10

Code:

---

Sheets.Add

---

Salut bbil,

Ça marche !!!

Bon je vais creuser de mon coté pour comprendre tous le code mais c'est parfait.

Merci à vous deux vous êtes trop fort !!!!!

Rq: ce sujet peut être marqué Résolu

Eddy

Bonjour Bbil, re le forum, DixFire
tu peux adapter si ta feuille "sem1" n'existe pas encore :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Macro1() Dim Ws As Worksheet, NomFl As String, x As Integer x = 1 For Each Ws In Worksheets'recherche si la feuile sem existe If Ws.Name = "sem" & x Then x = x + 1 'et incrémente x si elle existe "sem1, sem2, etc" End If Next Ws NomFl = "sem" & x'nom de la nouvelle feuille If x >1 then Sheets.Add After:=Sheets("sem" & x - 1) ActiveSheet.Name = NomFl Else Sheets.Add After:=Sheets(Sheets.count) ActiveSheet.Name = NomFl End If End Sub

---

Rebonjour casefayere,

En effet ça marche aussi et merci pour les commentaires sur les ligne de code ça m'aide à y voir plus claire.

Il manque juste un "End If" que j'ai rajouter ligne 16
(je le note juste pour ceux qui serai intéressé par la manip)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Macro1() Dim Ws As Worksheet, NomFl As String, x As Integer x = 1 For Each Ws In Worksheets 'recherche si la feuile sem existe If Ws.Name = "sem" & x Then x = x + 1 'et incrémente x si elle existe "sem1, sem2, etc" End If Next Ws NomFl = "sem" & x 'nom de la nouvelle feuille If x > 1 Then Sheets.Add After:=Sheets("sem" & x - 1) ActiveSheet.Name = NomFl Else Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = NomFl End If End Sub

---

Encore merci pour votre aide

Bonne journée à tous

Eddy

Citation:

---

Rq: ce sujet peut être marqué Résolu

---

alors penses-y

Citation:

---

Il manque juste un "End If" que j'ai rajouter ligne 16

---

C'est un oubli, je l'ai corrigé

bonne journée également