Ecrire dans une zone de texte

Résolu
ZEPS256
Messages postés
59
Date d'inscription
mardi 4 décembre 2007
Statut
Membre
Dernière intervention
28 juin 2012
- 27 juin 2012 à 22:57
ZEPS256
Messages postés
59
Date d'inscription
mardi 4 décembre 2007
Statut
Membre
Dernière intervention
28 juin 2012
- 28 juin 2012 à 22:24
Hello,

j ai un petit problème tout bête
je n'arrive pas a ecrire dans ma zone de texte

Sub ecrire()

TextBox1.Text = "hello"

End Sub

Plus light on peut pas !!!

merci à tous


Lezeps ;-))
http://www.amicro44.com/index.php

13 réponses

cs_cheyenne
Messages postés
693
Date d'inscription
samedi 18 mai 2002
Statut
Membre
Dernière intervention
17 avril 2017
2
28 juin 2012 à 20:15
Re,

myDocument est déclaré mais non utilisé.
Dans ton code tu as un With/End With inutile si tu ne manipules que le texte.

Texte couleur de fond et cadre :

With Worksheets("Feuil1").Shapes("Text1")
   With .TextFrame.Characters
      .Text = "TOTO"
      .Font.Color = vbBlue
      ' ou .Font.ColorIndex = 56 ' (1 à 56)
   End With
   
   With .TextFrame
      .HorizontalAlignment = xlCenter  ' centré horizontalement
      .VerticalAlignment = xlCenter    ' texte centré verticalement
   End With
   
   With .Fill
      .ForeColor.SchemeColor = 44
      'ou  .ForeColor.RGB = RGB(r, v, b)
      .Transparency = 0.5
   End With
   
   With .Line
      .Weight = 2.5                 '   épaisseur du cadre
      .ForeColor.SchemeColor = 12   '   couleur du cadre
      '  ou .ForeColor.RGB = RGB(r, v, b)
   End With
End With


Voilà, tu as presque tout ce qu'il te faut...

Cheyenne
3