Ecrire dans une zone de texte

Version imprimable

08/04/2008, 12h11
frins

Bonjour,

à partir d'une userform dans laquelle se trouve une textbox, je souhaite copier le contenu de celle-ci dans une "zone de texte" d'une feuille excel.
Or si cela fonctionne bien pour un texte d'une longueur inférieure à 255 carctères, cela devient impossible pour un texte plus long . Pourtant cette "zone de texte" accepte bien de recevoir un CTRL-V d'un texte long provenant du presse papier par exemple. Alors, que faire ?

par avance merci !
frins

petite précision :
voici la forme utilisée :

Code:

Shapes("zone de texte 1").TextFrame.Characters.Text = textbox1.Text

quelqu'un a peut-être une autre poposition ?

merci
08/04/2008, 16h19
frins

Ecrire dans une zone de texte

bonjour,
J'ai lu cette discussion.
cela ne fonctionne pas à plus de 255 caractères ?

Bonjour frins,
Si tu as testé, alors tu devrais voir qu'on peut mettre plus 1500 caractères.
Test ça, je laisse la mise en forme. ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.TextBox1.Text = "Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier." & vbCr & _
" Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier." & vbCr & _
" Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier. " & vbCr & _
"Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier. " & vbCr & _
"Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier. " & vbCr & _
"Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier. " & vbCr & _
"Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier. " & vbCr & _
"Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier. " & vbCr & _
"Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier. " & vbCr & _
"Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier. " & vbCr & _
"Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier. " & vbCr & _
"Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier. " & vbCr & _
"Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier. " & vbCr & _
"Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier. " & vbCr & _
"Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier. " & vbCr & _
"Cliquez sur la bordure de la forme automatique ou de la zone de texte que vous souhaitez modifier. "
 
MsgBox Len(ActiveSheet.TextBox1.Text)
End Sub

Deux clics sur la zone de text te donnera la taille du texte ;)

09/04/2008, 16h24
frins

zone de texte suite

OK OUSKE"l"NOR, une textbox peut prendre plus de 255 caractères.
Tout comme une "Zone de texte" (provenant de la barre "dessin" d'excel).
On peut sans problème les remplir avec un CTRL-V.
Mais ce qui apparemment ne marche pas c'est le transfert d'une textbox vers une zone de texte quand il y a plus de 255 caractères (voir ma formule dans le message précédant, et cela fonctionne quand il y a moins de 256 c.

Qu'en pensez-vous ?