Inserer des onglets à partir d'une liste et les renommer Fermé

Question

Bonjour, 

Je travaille sur Excel 2010. et je commence un petit peu a comprendre VBA.

Cette fois-ci je suis bloquée.
J'ai trouvé plusieurs lignes de codes sur les différents forums mais j'arrive pas à tout mettre bout à bout:

1er onglet : Nommer Base
2ème onglet: Nommer Modèle

Sur le 1er onglet " Base": j'ai en colonne A et B, une liste de produits/références

A1                B1
1                  Toto
2                  Tutu
3                  Tété


Je renseigne cette liste à la maison au début de mon travail, cette liste comporte au maximum 50 nombres & noms.

Sur le 2nd onglet "Modèle", j'ai une fiche type a compléter

Je souhaiterais dupliquer la fiche "Modèle" en fonction du nombre de ligne que j'ai sur la liste "Base".

Pour l'instant j'ai utilisé ça, qui me permet via InputBox de dupliquer ma fiche "Modèle"
Mais je n'arrive pas à la renommer...

Sub Duplication()
Dim C As Integer
  rep = 0
  rep = InputBox("Nombre de Feuilles à ajouter ?")
  If rep <> "" Then
   Do While C < rep
    Worksheets("Modèle").Copy after:=Worksheets("Modèle")
    C = C + 1
  Loop
  End If
 End Sub
 
  
Je cherche et je cherche depuis plusieurs heures, mais je n'arrive pas à mettre en place aucune des autres lignes de codes...
Je sais qu'il faut parfois nommer les cellules mais dans les exemples que j'ai trouvé, j'ai pas compris quelles cellules je devais nommer

Merci d'avance pour votre aide.

Au besoin, je vous envoi le fichier

Merci encore

Configuration: Windows 7 / Firefox 27.0

f894009 · Answer

Bonjour,

Sub Duplication()    Dim derlig  As Integer, NBWsh As Integer    'derniere cellule non vide colonne A    derlig = Worksheets("Base").Range("A" & Rows.Count).End(xlUp).Row    'boucle creation onglets    For NBWsh = 2 To derlig        Worksheets("Modèle").Copy after:=Worksheets("Modèle")    Next NBWshEnd Sub

Inserer des onglets à partir d'une liste et les renommer

1 réponse

Discussions similaires