generer un botuon à partir d une macro

[Laeti]

Bonjour,
J ai un petit pb car j ai un classeur qui en genere un autre qui lui meme en genere un autre, j ai besoin dans le 3éme de generer un bouton qui appelerait un userform.
Le probleme c est que je n y arrive pas ...
Merci encore et Désolée de ne pas etre à la hauteur ...

 

[jon]

tu as déjà fait beaucoup de chemin.
regarde notamment sur <http://perso.wanadoo.fr/frederic.sigonneau> tu trouveras une macro qui crée un formulaire temporaire avec des boutons en guise de msgbox personnalisée, cela devrait t'aider

 

[Laeti]

Je vais aller voir !
Merci beaucoup en tout cas ...

 

[jaccard]

Hello

Sub AddCmdButtonAndEventClick()
Dim objMonBouton As OLEObject

Set objMonBouton = ActiveWorkbook.ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Left:=100, Top:=100, Width:=100, Height:=50)
With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.ActiveSheet.CodeName).CodeModule
.InsertLines 1, "End Sub"
.InsertLines 1, "Userform1.show"
.InsertLines 1, "Private Sub " & objMonBouton.Name & "_Click()"
End With
objMonBouton.Object.Caption = "texte du bouton"
End Sub

Reste à voir si cela fonctionne avec ta pile d'appel...

dom ;-)

 

[Laeti]

Merci mille fois ca marche impeccable !!!!!!