Nommage de feuille en boucle

Bonsoir le forum

Je n'arrive pas à faire fonctionner un code pour créer et renommer de feuilles en boucle

A chaque fois le code plante et m'affiche cette erreur

"Erreur 1004- erreur défini par l'application ou par l'objet"

je place en pièce jointe un fichier avec un "UserForm" à lancer

Puis je saisie des nom dans le "Textbox1" qui se placent dans le "Textbox2"

Lorsque je lance le bouton création, la macro plante lorsqu'elle doit renommer la copie de la feuille "modele"

Si quelqu'un pouvait y jeter un oeil et me dire ce qui ne va pas

D'avance je vous remercie pour votre aide et votre disponibilité

Bonjour,

utilise les balises de code pour nous montrer le code utilisé pour renommer ta feuille (bouton Code au dessus de la fenêtre saisie message ..)

Bonsoir pierre.jy

Merci pour ta disponibilité et pour ton aide

voici le code qui plante

Set Ws = Worksheets("Liste")
  For J = 1 To Ws.Range("A" & Rows.Count).End(xlUp).Row 'création des nouvelles feuilles
    If Not FeuilleExiste(Ws.Range("A" & J).Value) Then
      Sheets("Modele").Copy After:=Sheets(1)
      ActiveSheet.Name = Ws.Range("A" & J)
    End If
  Next J
  Ws.Select

Function FeuilleExiste(Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function

il se situe à la fin de la commande du commandbutton2

Re,

que trouve t'on dans ta colonne A ? feuille Liste ?

Bonjour,

A1 est vide !

Bonjour le forum

Bonjour pierr.jy et MFerrand

Ok j'ai compris

A1 est vide

Du coup comment je fais pour partir de "A3" svp

C'est toi qui démarre à 1 !!!

  For J = 1 To ...

Tu démarres d'où tu veux !

Ok oui merci j'avais pas percuté

par contre maintenant

c'est à cette parti que je plante

 ActiveSheet.Name = Ws.Range("A" & J)

erreur d'exécution 1004

désolé ce nom est déjà attribué ...

Bé ça ! ça va pas louper si tu n'effaces pas ta liste une fois utilisée !

Du coup il vaudrait peut-être mieux de créer mes nouvelles feuilles en fonction de la liste de mon "UserForm" et de coller cette liste après dans ma feuille en colonne "A"

Si tu conserves la liste sur la feuille, c'est sûr ! La mise en place ne se fait qu'une fois, donc plus logique de le faire à partir du Userform.

Bonjour le forum

Ok j'avais compris

Mais comme je ne sait pas trop comment m'y prendre

, j'ai fais en sorte de placer ma liste dans une autre colonne , de créer mes feuilles et supprimer le contenue de la colonne

Merci pour ton aide

Si je me souviens bien, tu as ta liste dans une TextBox. Tu splittes le contenu de la TextBox

    FàCréer = Split(TextBox1.Value, Chr(10))

et tu as un tableau des noms de feuilles à créer....

ok merci je vais voir