Créer des onglets avec des noms automatiques
Résolu
guerando
Messages postés
331
Date d'inscription
Statut
Membre
Dernière intervention
-
guerando Messages postés 331 Date d'inscription Statut Membre Dernière intervention - 19 oct. 2018 à 15:09
guerando Messages postés 331 Date d'inscription Statut Membre Dernière intervention - 19 oct. 2018 à 15:09
A voir également:
- Créer des onglets avec des noms automatiques
- Créer un lien pour partager des photos - Guide
- Créer un compte google - Guide
- Comment créer un groupe whatsapp - Guide
- Créer une carte avec des points - Guide
- Les noms des animaux - Télécharger - Études & Formations
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, ma première idée est une question: ajouter +1 à quoi?
Bonjour,
comme ceci:
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
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
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
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:
voilà
@+
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à
@+
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...
décris la situation avant/après.
https://www.cjoint.com/c/HJtlIQN8Kvl
merci ;)