Ecrire dans une zones de texte (VBA)

[iguan]

Bonjour,

J'ai un code qui me créer une zones de textes de la taille voulu :

Dim Hauteur As Single
Dim Largeur As Single
Largeur = 60
Hauteur = 60
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, Largeur, Hauteur).Select

maintenant je voudrais écrire dans la zone de texte, j'ai essayer avec cette ligne de code :

ActiveWorkbook.ActiveSheet.ActiveShapes.TextFrame.Characters.Text = "j'écris ce que je veut"

mais elle bug, un pu d'aide ne serait pas de refus.
Merci d'avance

 

[gilbert_RGI]

Re : Ecrire dans une zones de texte (VBA)

bonjour;

comme ceci peut-être

Set mydocument = Worksheets(1)
mydocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
    100, 100, 200, 50) _
    .TextFrame.Characters.Text = "Test Box"

 

[iguan]

Re : Ecrire dans une zones de texte (VBA)

Bonjour gilbert_RGI,

Merci pour l'aide exactement ce qu'il me falait.

Cdt

 

[gilbert_RGI]

Re : Ecrire dans une zones de texte (VBA)

Bonjour gilbert_RGI,

Merci pour l'aide exactement ce qu'il me falait.

Cdt

sauf que moi c'est un textbox
et au commencement c'était une zonetexte