Ecrire dans une zones de texte (VBA)

iguan · 20 Juillet 2011

Bonjour,

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

VB:

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 :

VB:

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 · 20 Juillet 2011

Re : Ecrire dans une zones de texte (VBA)

bonjour;

comme ceci peut-être

Code:

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

iguan · 20 Juillet 2011

Re : Ecrire dans une zones de texte (VBA)

Bonjour gilbert_RGI,

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

Cdt

gilbert_RGI · 20 Juillet 2011

Re : Ecrire dans une zones de texte (VBA)

iguan à dit:
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

Ecrire dans une zones de texte (VBA)

iguan

XLDnaute Nouveau

gilbert_RGI

XLDnaute Barbatruc

iguan

XLDnaute Nouveau

gilbert_RGI

XLDnaute Barbatruc

Discussions similaires