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

Question

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 !!

Configuration: Windows 7 / Internet Explorer 9.0

manautop · Answer

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

cpaumier · Answer

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

manautop · Answer

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

cpaumier · Answer

Ca marche Nickel !!

Merci beaucoup !

Création nouvel onglet nommé avec le nom du dernier onglet + 1

4 réponses

Discussions similaires