Créer des onglets avec des noms automatiques

Résolu/Fermé

guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 - 18 oct. 2018 à 20:27
guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 - 19 oct. 2018 à 15:09

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

A voir également:

Créer des onglets avec des noms automatiques
Créer un lien pour partager des photos - Guide
Créer un compte gmail - Guide
Créer une carte avec des points - Guide
Créer un compte google - Guide
Comment créer un groupe whatsapp - Guide

2 réponses

Réponse 1 / 2

yg_be Messages postés 23364 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 décembre 2024 Ambassadeur 1 556
18 oct. 2018 à 21:31

bonjour, ma première idée est une question: ajouter +1 à quoi?

guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 6
19 oct. 2018 à 10:39

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...

yg_be Messages postés 23364 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 décembre 2024 1 556 > guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023
19 oct. 2018 à 12:38

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.

guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 6
19 oct. 2018 à 13:34

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 ;)

Réponse 2 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
19 oct. 2018 à 14:06

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

guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 6
19 oct. 2018 à 14:29

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

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
19 oct. 2018 à 14:41

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à

@+

guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 6
19 oct. 2018 à 15:09

Yes ca marche !!!!!! merci beaucoup

Discussions similaires

Comment créer un compte torrent ?

créer une adresse gmail pour une autre personne