Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

merci

[frins]

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[frins]

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 ?