Programme qui programme ?

[belette]

Bonjour,

Peut-on écrire dans le module un programme qui 'colle' du code et crée un nouveau programme ?

Je m'explique, j'ai une macro qui crée une feuille et un bouton dans cette feuille. Dans le module, j'ai le programme ('purge') de ce bouton. Il faudrait dans la feuille nouvellement crée un programme qui appelle le programme ('purge') lors de l'évènement click du bouton.

 

[ERIC S]

Bonjour

a adapter

'affecte la macro essai au bouton
ActiveSheet.Buttons.Add(150, 45.75, 99.75, 55.5).Select
Selection.OnAction = 'essai'
Selection.Characters.Text = 'Purge'
Range('F9').Select


(code obtenu à l'enregistreur de macro)

A+

 

[belette]

Merci.

Je comprends pas tout, mais ça a l'air de marcher !

J'avais essayé avec l'enregistreur mais j'avais pas trouvé...

Range('F9').Select ne sert à rien !

Message édité par: belette, à: 09/05/2006 15:24

 

[ERIC S]

re

infos: le bouton créé utilise la barre d'outil formulaire (tu peux lui affecter une macro)


Range('F9').Select ne me sert qu'à ne plus sélectionner le bouton

A+

 

[Hervé]

bonjour

en reprenant le code d'eric, une autre syntaxe pour eviter les select :

Dim bouton As Object

Set bouton = ActiveSheet.Buttons.Add(150, 45.75, 99.75, 55.5)

With bouton
        .OnAction = 'essai'
        .Characters.Text = 'Purge'
End With

salut