XL 2021 création d'onglets en masse depuis un modele

[reska]

Bonjour à tous,
j'ai un fichier avec 2 onglets de base : Modele et Lots
Je cherche a creer des onglets de masse a partir de ce fichier.
Idée : chaque onglet doit porter le nom des cellules A2,A3, A4 .. de l'onglet "Lots"
Chaque onglet doit copier les information contenu dans l'onglet "Modele"de la cellule A1
Ensuite, dans le premier onglet crée, la cellule A1 doit reprendre la valeur de la cellule A1 de l'onglet "Lots"
La cellule B1 doit reprendre la valeur de la cellule B2 de l'onglet "Lots"
La cellule A2 doit reprendre la valeur de la cellule C2 de l'onglet "Lots"
La cellule B2 doit reprendre la valeur de la cellule D2 de l'onglet "Lots"

Je joins le fichier et ci joint le script que j'ai réussi a ecrire tant bien que mal, mais je n'arrive pas aller plus loin que la reprise

Function create_sheets()

Dim i As Long, LastRow As Long, ws As Worksheet

Sheets("Lots").Activate

LastRow = 4

For i = 1 To LastRow

'copy d'onglet depuis modele
Sheets("Modele").Copy After:=Sheets(i + 1)
ActiveSheet.Name = Sheets("Lots").Cells(i, 1)

'update numero de lot
ActiveSheet.Range("a1").Value = "LOT " & ActiveSheet.Name

Next i



MsgBox "C'est fait"


End Function

pouvez vous m'aider ?

 

[vgendron]

Hello
voir PJ avec macro et explications

 

[Phil69970]

Bonjour @reska
Edit Bonjour Vincent

Je te propose ce fichier

Merci de ton retour

 

[reska]

Hello
voir PJ avec macro et explications

En un mot : MERCI !

edit : si je souhaite que, pour la ligne .Range("A1") = TabSource(i, 1), ça rajoute le mot "Lot" puis le numero, comment dois-je proceder ?

 

[reska]

Bonjour @reska
Edit Bonjour Vincent

Je te propose ce fichier

Merci de ton retour

et MERCI aussi !!!

 

[vgendron]

Hello

.Range("A1") = TabSource(i, 1)

suffit d'ajouter le mot
.Range("A1") = "Lot " &TabSource(i, 1),

 

[Phil69970]

Bonjour à tous

Et même réponse que Vincent
Il suffit de rajouter la partie en bleu

NewFeuille.Range("A1").Value = "Lot " & WsLot.Range("A" & i).Value