Discussion :

[DixFire]

Bonjour,

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

Code :

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

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

[casefayere]

Bonjour,
une proposition à adapter :

Code :

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

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

[DixFire]

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 :

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

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

[SfJ5Rpw8]

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 :

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

Sheets.Add

[DixFire]

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

[casefayere]

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

Code :

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

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

[DixFire]

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 :

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

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

[casefayere]

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

alors penses-y

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

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

bonne journée également