etpisculrien
XLDnaute Occasionnel
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
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