XL 2010 Copier bouton avec macro attachée

[etpisculrien]

Bonjour à tous,

j'aurais besoin d'un coup de main par des pros car je bloque svp...
Je vous explique, j'ai créé un un multipage avec un bouton à coté. Quand je clique sur ce bouton, cela va chercher une frame d'un autre objet créé et cela colle la dite frame avec ses textbox et son bouton "supprime" dans mon multipage:

" NumBaie = Me.MultiPage1.SelectedItem.Index
nom_userform.Controls.Copy
MultiPage1.Pages(NumBaie).Paste"

Le problème est que ma macro attachée au bouton "supprime" n'est pas copié en meme temps que le bouton, du coup, j'ai beau cliquer dessus, rien ne se passe :s
Si quelqu'un avait une idée pour que, lorsque je copie/colle mon frame et son bouton dans le multipage, que la macro du bouton suive... ce serait sympa

j'ai trouvé ce bout de code sur le net mais cela ne fonctionne pas :
"
For Each ctl In MultiPage1.Pages(NumBaie).Controls
If TypeOf ctl Is MSForms.Frame Then
Nbctl = Nbctl + 1
If Nbctl = 1 Then
'HauteurPremiereFrame = ctl.Height
HauteurFrame = HauteurFrame + ctl.Height
Else
HauteurFrame = HauteurFrame + ctl.Height
DernFrame = ctl.Height
End If
End If

If TypeOf ctl Is MSForms.CommandButton Then
NomBouton = ctl.Name
Set modObj = Application.VBE.ActiveVBProject.VBComponents.Item("Module2")
strCode = modObj.CodeModule.Lines(1, modObj.CodeModule.CountOfLines)
Application.VBE.ActiveVBProject.VBComponents.Item(MultiPage1.Pages(NumBaie)).CodeModule.AddFromString (strCode)
End If
Next
"
ça bug sur la dernière ligne, je pense sur "Item(MultiPage1.Pages(NumBaie))"

Merci à tous d'avance

 

[etpisculrien]

Bonjour à tous,

j'aurais besoin d'un coup de main par des pros car je bloque svp...
Je vous explique, j'ai créé un un multipage avec un bouton à coté. Quand je clique sur ce bouton, cela va chercher une frame d'un autre objet créé et cela colle la dite frame avec ses textbox et son bouton "supprime" dans mon multipage:

" NumBaie = Me.MultiPage1.SelectedItem.Index
nom_userform.Controls.Copy
MultiPage1.Pages(NumBaie).Paste"

Le problème est que ma macro attachée au bouton "supprime" n'est pas copié en meme temps que le bouton, du coup, j'ai beau cliquer dessus, rien ne se passe :s
Si quelqu'un avait une idée pour que, lorsque je copie/colle mon frame et son bouton dans le multipage, que la macro du bouton suive... ce serait sympa

j'ai trouvé ce bout de code sur le net mais cela ne fonctionne pas :
"
For Each ctl In MultiPage1.Pages(NumBaie).Controls
If TypeOf ctl Is MSForms.Frame Then
Nbctl = Nbctl + 1
If Nbctl = 1 Then
'HauteurPremiereFrame = ctl.Height
HauteurFrame = HauteurFrame + ctl.Height
Else
HauteurFrame = HauteurFrame + ctl.Height
DernFrame = ctl.Height
End If
End If

If TypeOf ctl Is MSForms.CommandButton Then
NomBouton = ctl.Name
Set modObj = Application.VBE.ActiveVBProject.VBComponents.Item("Module2")
strCode = modObj.CodeModule.Lines(1, modObj.CodeModule.CountOfLines)
Application.VBE.ActiveVBProject.VBComponents.Item(MultiPage1.Pages(NumBaie)).CodeModule.AddFromString (strCode)
End If
Next
"
ça bug sur la dernière ligne, je pense sur "Item(MultiPage1.Pages(NumBaie))"

Merci à tous d'avance

Pour que ça soit plus clair, j'ai mis le fichier

 

[etpisculrien]

Rebonjour,

Ma demande ne semble pas inspirer beaucoup de monde
Quoi qu'il en soit, j'ai trouvé une solution partielle que je vous envoie (merci à silkyroad.developpez.com/VBA/VisualBasicEditor/)

Il me reste un problème : cela fonctionne quand je clique la première fois sur mon bouton "ajouter" puis quand je clique une nouvelle fois, ça m'ajoute ma 2ieme frame avec un bouton "supprime" mais la macro ne fonctionne plus sur le premier bouton (de ma première frame)

Je suis sur que c'est une simple co.... mais si quelqu'un avait une idée... ce serait sympa

Ah oui, j'ai aussi le message "mémoire insuffisante" qui apparait 3 fois de suite quand je ferme le userform avec la croix et je sais pas pourquoi non plus :s

Merci d'avance