Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

création de bouton

belette

XLDnaute Junior
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
 

MichelXld

XLDnaute Barbatruc
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

XLDnaute Junior
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 ?
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…