Création de nouvelles feuilles selon un modèle

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pheonix00fr

XLDnaute Junior
Bonjour à tous,
J’ai besoin d'aide pour une adaptation, j'utile actuellement un code qui d'après une liste de nom dans la feuille "Liste", crée de nouvelles feuilles et les nomes selon le nom de la liste. Jusque-là celle fonctionne parfaitement, maintenant je voudrais que ces nouvelles feuilles soit une copie d'un modèle nommé "Modèle".

Je ne veux pas abuser mais le top serait que si j'ajoute un nom a la liste, la feuille correspondante soit créée (automatique ou en activant la macro), actuellement elle ne fonctionne qu'à la première création
Merci d'avance pour votre aide.

Code:
Sub creerFeuilles()
Dim curCell As Range
Set curCell = ThisWorkbook.Sheets("Liste").Range("A1")
While curCell.Value <> vbNullString
ThisWorkbook.Sheets.Add After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = curCell.Value & " " & curCell.Offset(0, 1).Value
ThisWorkbook.Sheets("0 Liste").Hyperlinks.Add Anchor:=curCell.Offset(0, 2), Address:="", SubAddress:= _
"'" & ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name & "'!A1", TextToDisplay:="Acc"
Set curCell = curCell.Offset(1, 0)
Wend
ThisWorkbook.Sheets("Liste").Select
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
968
Réponses
8
Affichages
1 K
Retour