Changement de nom d'une feuille ajoutée

[Nico]

Salut tout le monde,

comment puis-je changer le nom d'une nouvelle feuille en introduisant une variable. J'ai quelque peu copié l'idée de Thierry pour l'ajout d'une feuille par copie d'une feuille

Sub Add_Tabelle()
'
' Add_Tabelle Makro
'
Dim n As Integer, m As Integer
Dim X As Byte
Dim Name1 As String
Dim Name2 As String
'
For n = 1 To 3
X = Sheets.Count
Sheets("Template").Copy After:=Sheets(X)
m = 15 + n
Name2 = "Variante " + n
Sheets(X + 1).Name = Name2
Next n
End Sub


La création de la feuille fonctionne mais le changement de nom de feuille buggue toujours.
Merci d'avance pour votre aide
Nico

 

[Pyrof]

Bonjour,

Une toute petite erreur dans

Name2 = "Variante " + n

il faut

Name2 = "Variante " & n

C'est un cumul de texte et non une addition

Bonne journée ...

 

[Nico]

Merci

 

[john]

Salut,

Voici un exemple de prog pour modifié le nom d'une feuille via une variable ou textbox. Quand on peu économiser du temps, vaut mieux le faire, le problème avec un copy comme dans l'exemple ci-dessus, c'est que si il y a des données dans la feuilles, celles-ci seront copiées aussi.

Bonne soirée.

John

 

[Pyrof]

Bonjour john

To exemple est bien mais tu ne fais que changer le nom en plus au lieu de donner le numéro de la feuille, il serait mieux de lisster les noms existants.
Ce dont on a le plus besoin c'est de recopier une feuille (avec sa mise en forme et ses formules).

dans cette otptique il faut faire une feuille de base avec formule mais sans valeurs et recopier celle-ci

Bonne journée