Créer des onglets avec des noms automatiques

Résolu
guerando Messages postés 364 Statut Membre -  
guerando Messages postés 364 Statut Membre -
Bonjour,

j'ai besoin de créer une macro pour qu'un onglet se cré avec +1 au niveau du chiffre par exemple :
onglet 1 ="Action 1" => l'onglet 2 devra s'appeler "Action2" puis Action 3 etc...
... avez vous une idée ?
merci de votre aide
Bonne soirée

2 réponses

  1.
    yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonjour, ma première idée est une question: ajouter +1 à quoi?
    0
    1. guerando Messages postés 364 Statut Membre 6
       
      bonjour :) oui je suis pas trés clair :)
      la feuille 1 va s'appeleler Action1 donc la 2 ème feuille devra s'appeler Action2 ( donc : 1+1) puis Action 3 (2+1) enfin en fait il faut juste des onglets qui aient des chiffres qui se suivent dans leur nom...
      0
      1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > guerando Messages postés 364 Statut Membre
         
        quand la macro va-t-elle faire cela, qu'est-ce qui va la déclencher, combien de feuilles doit-elle créer, et où ces feuilles doivent-elles se trouver?
        décris la situation avant/après.
        0
    2. guerando Messages postés 364 Statut Membre 6
       
      Sur le premier onglet "Action 1" il y a comme un questionnaire à remplir (date, client, produit, quantité, prix total...), je pourrais faire un bouton "VAlidé" et de là s'ouvre un autre onglet le même que l'autre mais vierge des informations saisies avec le nom 'Action 2" idem à la fin de la saisie de cette onglet pour ouvrir "Action 3". Toutes ces feuilles vont se trouver dans le meme fichier.
      https://www.cjoint.com/c/HJtlIQN8Kvl
      merci ;)
      0
  2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    comme ceci: 

    Sub ajoutonglet()
Dim nom As String
nom = Worksheets(ThisWorkbook.Sheets.Count).Name
nom = Replace(nom, "Action", "")
nom = "Action " & nom + 1
  Sheets("Action vierge").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
     Sheets("Action vierge (2)").Name = nom
End Sub

    0
    1. guerando Messages postés 364 Statut Membre 6
       
      Bonjour cs_Le Pivert,

      merci pour ton aide.
      J'ai mis la macro et je l'ai rattaché au bouton validé. Mais je n'arrive pas à le faire marcher. je te met le fichier tu verras peut etre mon erreur. Tu verras il y a à la fin trois onglets qui me servent pour mes menus déroulants mais je les masquerai.
      https://www.cjoint.com/c/HJtmC4smJSl
      bonne journée
      0
    2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      1ère remarque,

      Il ne faut pas mettre la macro dans ThisWorkbook, mais dans un module

      seconde remarque,

      quand tu postes un classeur mets le avec tout les élements. Le dernier classeur n'a rien a voir avec le précédent. C'est important l'ordre des Feuilles! Il faut donc changer la macro comme ceci: 

      Sub OuvertureFormulaire()
'ouverture du formulaire à l'ouverture du fichier excel
    UserForm1.Show
End Sub
Sub ajoutonglet()
Dim nom As String
nom = Worksheets(ThisWorkbook.Sheets.Count - 3).Name
nom = Replace(nom, "Action", "")
nom = "Action " & nom + 1
  Sheets("Action vierge").Copy After:=Sheets(ThisWorkbook.Sheets.Count - 3)
     Sheets("Action vierge (2)").Name = nom
End Sub


      voilà

      @+
      0
    3. guerando Messages postés 364 Statut Membre 6
       
      Yes ca marche !!!!!! merci beaucoup
      0