Click sur un 'Set Obj'

Francis · 20 Mai 2006

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

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]

Click sur un 'Set Obj'

Francis

Guest

AV

Guest

Discussions similaires