creation textbox

[david]

Bonjour a tous.
Je cherche le code pour créer une textbox.
G essayé:

a = Sheets.Count
Set textbox4 = Worksheets(a).OLEObjects.Add _
('Forms.textbox.1')
with textox4 (...)

mais il me met une erreur et dit:'erreur automation, l'objet invoqué s'est déconnecté de ses clients'.
J'l'avais jamais eu celle la!!
Est ce que quelqu'un a une idée du pb???
En vous remerciant.

 

[MichelXld]

bonjour David

tu peux tester

Sub creerTextBox()
Dim Obj As OLEObject
Dim A As Byte

A = Sheets.Count
Set Obj = Sheets(A).OLEObjects.Add(ClassType:='Forms.TextBox.1', _
Link:=False, DisplayAsIcon:=False, Left:=340, Top:=30, Width:=80, Height:=30)

With Obj
'nommer l'objet
.Name = 'MonNom'
'Donner une valeur par défaut
.Object.Value = 'MaValeur'
End With
End Sub


bonne journée
MichelXld

 

[david]

Impec ca marche
merci beaucoup