création de bouton

[belette]

Bonjour,

J'ai une macro qui crée une feuille, dans cette nouvelle feuille je crée un bouton qui appelle une userform avec l'instruction suivante :
ActiveSheet.OLEObjects.Add(ClassType:='Forms.CommandButton.1', Link:=False, Left:=11, Top:=3, Width:=38, Height:=24).Select

Comment puis-je attribuer l'argument 'caption' ?

Et comment 'coller' l'appel dans la feuille !

Sub Saisie_Click()

Load Userfom
Userform.Show

End Sub

Message édité par: belette, à: 09/05/2006 12:03

 

[belette]

Pour l'attribut Caption, j'ai tenté :

ActiveSheet.OLEObjects.Caption = 'purge'

Mais ça ne marche pas ! Pouquoi ?

 

[MichelXld]

bonjour

tu peux essayer


Dim Obj As OLEObject

Set Obj = ActiveSheet.OLEObjects.Add(ClassType:='Forms.CommandButton.1', Link:=False, _
Left:=11, Top:=3, Width:=38, Height:=24)

Obj.Object.Caption = 'Purge'



bon apres midi
MichelXld

Message édité par: michelxld, à: 09/05/2006 12:47

 

[belette]

Merci MichelXld, grace au Dim, l'attribution de Caption fonctionne.

Et comment appeler ce bouton dans ma feuille que je viens de créer ?
Puis-je 'coller' du code dans une feuille à l'aide d'un module ?

 

[MichelXld]

bonjour

j'espere que ce lien pourra t'aider

Lien supprimé


bonne soirée
MichelXld