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

clobib -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 6 févr. 2014 à 17:24

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

Afficher la suite

A voir également:

Inserer des onglets à partir d'une liste et les renommer
Liste déroulante excel - Guide
Insérer une vidéo dans powerpoint - Guide
Renommer des fichiers en masse - Guide
Creer un groupe whatsapp a partir d'un autre groupe - Guide
Insérer signature word - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 NBWsh
End Sub

Discussions similaires

Annuaire portable gratuit à partir d'un nom

Votre réponse

Discussions similaires