Programme qui programme ?

belette · 9 Mai 2006

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 · 9 Mai 2006

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 · 9 Mai 2006

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 · 9 Mai 2006

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é · 9 Mai 2006

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

Programme qui programme ?

belette

XLDnaute Junior

ERIC S

XLDnaute Barbatruc

belette

XLDnaute Junior

ERIC S

XLDnaute Barbatruc

Hervé

XLDnaute Barbatruc

Discussions similaires