nom zone de texte

[kokito]

Salut, je vous remercie tous pour votre aide.
j'utilise le code ci-dessus pour créer une zone de texte, et ça marche bien, le roblème , c'est que j'arrive pas à connaitre le nom
de la zone de texte crée afin de la selectionner et la relier par une
formule :
selection.formula=activecell.text
'exactement : copier le contenue de la cellule active dans la zone de texte
*************************
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set un = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2)
*************************
merci de votre aide

 

[kokito]

merci de votre réponse
j'arrive à selection la zone de texte mais je peux pas coller dans la zone merci de votre aide
merci infiniment

 

[kokito]

Merci à tous, j'ai trouvé la solution grace à vos
le voila :

Dim a As String
Set ici = ActiveCell
a = ActiveCell.Text
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set un = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2)

un.Select
Selection.Text = a

merci encore