Copie feuille modéle depuis feuille active

Bonjour,

Pour commencer je vous souhaites une excellent année 2021

Bon je galère sur ce petit bout de code.

Sub Ajout_Feuille()
Dim DernLig  As Long
Dim NomFeuille As String
NomFeuille = ActiveSheet.Name
DernLig = Sheets(NomFeuille).Range("A" & Rows.Count).End(xlUp).Row + 2
Sheets("BL").Range("A1:G50").Copy Sheets(NomFeuille).Cells(DernLig, 1)
End Sub

Je m'explique j'ai une feuille BL que je copie pour créer une nouvelle feuille à qui j’attribue un nom de client et un code.
Je vais donc chercher ma dernière ligne de cette nouvelle feuille et je veux rajouter une nouvelle plage de ma ma feuille BL.

Ceci marche très bien sur ma feuille BL mais pas sur la nouvelle feuille.

Merci.

Bonjour Tespark,

Je te souhaite une très bonne année !

Je ne suis pas sûr d'avoir bien compris mais je propose un essai, sait-on jamais :

Sub Ajout_Feuille()

Dim DernLig  As Long

With activesheet
    DernLig = .Range("A" & .Rows.Count).End(xlUp).Row + 2
    Sheets("BL").Range("A1:G50").Copy .Cells(DernLig, 1).resize(50, 7)
end with

End Sub

Il faut bien entendu que ce code soit exécuté lorsque la nouvelle feuille est active.

Cdlt,

Merci 3GB pour cette réponse.

Le résultat est le même.

J'ai extrait juste ce qu'il faut par rapport à ma question de mon classeur original pour faire un exemple fonctionnel pour la création d'une nouvelle feuille.

Ce qui marrant c'est sur mon fichier original la macro que tu proposes marche bien depuis le feuille BL (comme mon code) et pas de la nouvelle feuille.

Alors que sur le fichier exemple ci-joint elle ne marche sur aucune des feuilles.

Seul la première sélection de la première frame fonctionne et saisir un nom dans la dernière.

Merci pour ton aide.

En fait, je comprends pas bien ce que tu souhaites faire. Pourquoi ne pas copier directement la feuille BL, puis la renommer ? Car là, la feuille BL n'a quasiment aucun contenu et je ne sais pas quelle feuille est la nouvelle parmi les feuilles "EXEMPLE".

Cdlt,

Oui désolé j'ai trois exemples.

Il faut se rendre sur la feuille TDB et lancer l'userform.

Et saisir par exemple comme ceci :

Le but est de lancer via :

un BL vierge sous celui qui est créer si celui-ci est plein.

Je veux remettre une vierge pour noter comme dans l'exemple ci-joint Blablabla 29, Blablabla 30...

Bon après un bonne pause, j'ai trouvé comment palier à mon souci.

Du coup maintenant ça fonctionne.

Merci.

Sub Ajout_Feuille()
Dim DernLig  As Long
With Sheets("BL")
.Range("A1:G50").Copy
End With
With ActiveSheet
DernLig = .Range("A" & Rows.Count).End(xlUp).Row + 2
.Cells(DernLig, 1).PasteSpecial xlPasteValues
.Cells(DernLig, 1).PasteSpecial xlPasteFormats
End With
End Sub

Re Tespark,

Bon bah tant mieux ! Mais j'ai toujours pas compris la manoeuvre car, vu que cette feuille est déjà une copie de BL, il ne devrait pas y avoir besoin de copier/coller des cellules de BL.

Cdlt,

Que si la première copie est pleine suite à la saisie dans la nouvelle feuille.

Je peux avoir plusieurs BL à suivre sur la même feuille.

As-tu regardé le fichier joint ?

En tout cas merci pour ton aide