propriété d'un oleobject

[Goutedo]

bonjour à vous.

je suis un grand débutant en VBA. Donc, devant un problème je me suis tourné vers l'aide VBA, et le forum mais je n'ai pas trouvé de réponse à ma question.

* Contexte:
J'ai une macro qui doit créer une texte box.
Pas de problème pour la créer.
* Mon souci:
Mais je souhaite que cette texte box est un nom et une valeur par défaut.
Et ça je n'y arrive pas.

Quelqu'un pourrait-il m'aider à faire ce bout de code ou m'orienter vers un site qui expliquerait clairement le concept et les propriétés d'un OLEOBJECT?

Merci pour l'attention que vous porterez à cette question

Goutedo

PS:
voici mon code

Dim Num as Integer
Dim haut As Integer
haut = 30
Dim gauche As Integer
gauche = 100

Do while num<5
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False, Left:=(gauche * 3 + 40), Top:=haut, Width:=35, Height:=15.75).Select
num=num +1
Loop

 

[wally]

Bonjour Goutedo et le forum,

Essaye qqch du genre :

Dim oOLE As OLEObject

Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False, Left:=340, Top:=30, Width:=35, Height:=15.75)
'Donner un nom
oOLE.Name = "MonNom"
'Donner une valeur par défaut
oOLE.Object.Value = "MaValeur"


Slts

wally

 

[Goutedo]

ca marche, merci beaucoup!!!!

bon week end

goutedo