Microsoft 365 Copie des boutons en faisant une copie de feuille

jcf6464

XLDnaute Occasionnel
Bonjour le forum,

Un problème que je n'arrive pas à résoudre,

J'ai une feuille modèle que je copie par l’intermédiaire d'une macro sur se modèle j'ai des boutons pour revenir au menu etc...,
je désirerai que les boutons suivent la copie ( si cela est faisable bien évidemment)

voici le morceau de code qui copie le modèle
VB:
Sub NouvelleRecette()
   
    Set f = ActiveSheet
    Rep = InputBox("Donner le nom de votre nouvelle recette :", "Nouvelle recette")
    If Rep = "" Then Exit Sub
    Sheets("FicheModele").Visible = True
    Rows("5:5").Insert shift:=xlDown
    Range("B5") = Rep
    Sheets("FicheModele").Activate
    ActiveSheet.Copy after:=Sheets(Sheets.Count)
    'ActiveSheet.Copy after:=Sheets(3)
    ActiveSheet.Name = Rep
    Sheets("FicheModele").Visible = False
    Range("B4") = Rep
    MsgBox "Remplissez maintenant cette fiche."
   
End Sub
Merci d'avance a tous jcf
 

dg62

XLDnaute Barbatruc
Bonjour jcf6464,

Je viens de faire un essai avec votre code et un bouton "nouvelle recette"
le bouton suit la création de la nouvelle feuille sans problème.
 

Pièces jointes

  • essai.xlsm
    20.9 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 794
Membres
101 817
dernier inscrit
carvajal