Click sur un 'Set Obj'

[Francis]

Bonjour le forum,

Je créer un objet Textbox:

set Obj = Sheets('Feuil1').OLEObjects.Add(ClassType:='Forms.TextBox.1',Link:=False, DisplayAsIcon:=False,Left:=200, Top:=10, Width:=300, Height:=80)

vltxbx = vltxbx & Chr$(10) & Chr$(10) & Chr$(10) & Chr$(10)
With Obj
.Name = 'Txbx'
.Object.MultiLine = True
.Object.Value = vltxbx
.Enabled = False
.Object.BackColor = &HFFFF80
.Object.ForeColor = &HFF&
.Object.BorderStyle = 1
.Object.BorderColor = &HFF0000
End With

Je voudrai créer une procedure quand je click dessus.
Private Sub Txbx_Click()
mais elle ne s'active pas. Il doit falloir faire autrement...Merci de vos indications.
Francis

 

[AV]

Salut,

Que je sache, il n'y a pas d'évènement ''Click'' sur un TextBox issu de la BO Controles
Pourquoi ne pas utiliser un textBox de la BO Dessin et lui affecter une macro par une instruction du style :
ActiveSheet.Shapes('monTextBox').OnAction = 'maMacro'

AV [aaa]