bouton de commande

[Alexandre]

bonsoir le forum !

dans une procédure, j'ai une instruction qui a pour effet de
créer un bouton de commande sur une feuille :

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=576, Top:=81.5, Width:=72, Height:= _
24).Select

J'aimerai lui changer les propriétés du bouton : name & caption
et lui attribuer une procédure

Comment j'peux faire ?

Merci d'avance

Alex

 

[Celeda]

Bonjour,

Avec la petite equerre bleue, si tu te mets en mode création, tu cliques dessus, tu vas dans vba, tu vois la procédure qui s'affiche

Private Sub CommandButton1_Click()
c'est là que tu lui mets ta procédure X

pour lui changer son nom et son caption, toujours en mode création sur ta feuille, tu affiches les propriétés et tu changes directement dedans.

Celeda

 

[Mytå]

Salut Alexandre et Celeda

Celeda un petit detail c'est un object pas un controle qu'il
a créer alors le mode proprietes n'existe pas pour le
changer.

Mytå

 

[Mytå]

re le forum

pour le creer et renommer

With ActiveSheet
.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=576, Top:=81.5, Width:=72, Height:= _
24).Select
.OLEObjects("CommandButton1").Object.Caption = "run me"
End With

 

[Alexandre]

Aidez moi svp : appel aux pros

Merci myta, c'est tout à fait ca que je voulais !
Par contre, qqun saurait comment attribuer une procédure au bouton de commande ainsi créé ?

en effet, je peux pas mettre un truc du type :
Private Sub CommandButton1_Click()
'nom de la procédure'
end sub

....
Merci de m'aider !!

Alex