jcf6464
XLDnaute Impliqué
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
Merci d'avance a tous jcf
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