Création nouvel onglet nommé avec le nom du dernier onglet + 1 [Résolu/Fermé]

Signaler
-
 cpaumier -
Bonjour,

Je souhaiterais créer une macro permettant d'ajouter un onglet qui prend le nom de l'onglet précedent, qui est un nombre, 1, 2, 3,... et qui lui ajoute 1. Donc si on a deux feuilles nommées '1' et '2', la nouvelle s'appelera '3'. De plus, je souhaite que la feuille insérée soit pré remplie selon un model (model de la feuille '1') mais vierge (pas remplie par l'utilisateur).

Merci d'avance

Bonne journée aux VBistes !!

4 réponses

Messages postés
138
Date d'inscription
lundi 27 novembre 2006
Statut
Membre
Dernière intervention
24 janvier 2013
3
Bonjour,

voici la solution

Sub test()


ThisWorkbook.Sheets.Add
NB_onglets = ThisWorkbook.Sheets.Count
i = NB_onglets
ThisWorkbook.ActiveSheet.Name = "Nomdelonglet_" & i +1

end sub

tu changes juste ce qu'il y a entre les " "

et voila
Merci beaucoup pour cette rapide réponse.
La macro fonctionne mais les onglets s'insèrent au début du feuillet alors que je voudrais qu'ils 'insèrent à la suite.
Et pour que la feuille soit une feuille prédéfinie ?

Merci !!
Messages postés
138
Date d'inscription
lundi 27 novembre 2006
Statut
Membre
Dernière intervention
24 janvier 2013
3
essaye ça

Sub test()


ThisWorkbook.Sheets.Add , Worksheets(WorkSheets.Count)
NB_onglets = ThisWorkbook.Sheets.Count
i = NB_onglets
ThisWorkbook.ActiveSheet.Name = "Nomdelonglet_" & i +1



End Sub
Ca marche Nickel !!

Merci beaucoup !