Sujet Précédent Sujet Suivant

Créer des onglets avec des noms automatiques

Résolu/Fermé
guerando Messages postés 336 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 - 18 oct. 2018 à 20:27
guerando Messages postés 336 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:

2 réponses

Réponse 1 / 2
yg_be Messages postés 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024 1 481
18 oct. 2018 à 21:31
bonjour, ma première idée est une question: ajouter +1 à quoi?
0
guerando Messages postés 336 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...
0
yg_be Messages postés 22777 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mai 2024 1 481 > guerando Messages postés 336 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.
0
guerando Messages postés 336 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 ;)
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
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

0
guerando Messages postés 336 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
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
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à

@+
0
guerando Messages postés 336 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
0

Discussions similaires

créer une adresse gmail pour une autre personne
Emma33000 -
Emma33000 -

2 réponses