[VBA-E]Limite nombre caractères dans TextBox ?

Bonjour,

Je n'arrive rien à trouver dans l'aide Excel ni sur le forum.
Quelle est la limite du nombres de caractères récupérables dans un textbox ?

J'ai une Zone de texte qui doit contenir pas loin de 350 caractères mais si je copie (par VBA) cela dans un TextBox d'un UserForm, il me tronque la fin. J'ai environs 250 caractères d'affiché. C'est normal ? y a-t-il un moyen de remédier à ce problèmes ?

Par copier Coller, Coller, Coller, Coller, Coller, Coller, Coller, j'ai arrêté à 15109 ;)

Ca viens peut-être alors de Selection.Characters.Text
Voici comment je fais

Code:

---

TextBox1.Value = Selection.Characters.Text

---

C'est peut-être là qu'est ma limite.

As-tu essayé

Code:

---

Textbox1.value = Selection

---

A+

Citation:

---

Envoyé par ouskel'n'or

As-tu essayé

Code:

---

Textbox1.value = Selection

---

A+

---

Oui, et là, j'ai carrément rien du tout, donc je ne sais même plus de quel Shapes je traite. :/

Ok, j'avais mal lu... A passer d'un post sur l'autre, je me croyais dans Word, le textbox étant dans un userform :aie:
Garde ton code et mets la propriété Multiline de ton textbox = True
A+

Citation:

---

Envoyé par ouskel'n'or

Garde ton code et mets la propriété Multiline de ton textbox = True
A+

---

C'est déjà fait :(

J'ai réussi à tous copier, mais pas la seule chose dont j'ai besoin :(

Alors ne mets que ce dont tu as vraiment besoin ;)
Je plaisante.
Que veux-tu placer en plus et qui n'entre ou ne s'affiche pas ? Qu'y a-t-il de récalcitrant dans ta sélection ?

en fait, j'ai ça dans une feuille dans une zone de texte :

Citation:

---

L32 = EX:6.1(LONGUEUR NEZ DE PINCE)
L50 = 1.55 RÈGLE LG. 0.3 DE LA SAIGNÉE
L51 = 1.175 RÈGLE Ø1.20 (SAIGNÉE)
L52 = 1.85 RÈGLE LG. 1.80
L53 = 15.16 RÈGLE LE 15°
L54 = 3.95 RÈGLE LG. 3.95
L55 = 5.125 RÈGLE LG. 5.1
L56 = 2.485 RÈGLE Ø 2.5
L57 = 1.585 RÈGle ø 1.6
L58 = 6.51 Règle ø 6.50
L59 = 30.16 Règle le 30°

L90 = 1 Chauffe machine
L91 = 1 Sans peignage M1.6
L98 = 1.0 Angler barre

---

mais mon

Code:

---

txtVS = Selection.Characters.Text

---

se stoppe à la ligne :

Citation:

---

L32 = EX:6.1(LONGUEUR NEZ DE PINCE)
L50 = 1.55 RÈGLE LG. 0.3 DE LA SAIGNÉE
L51 = 1.175 RÈGLE Ø1.20 (SAIGNÉE)
L52 = 1.85 RÈGLE LG. 1.80
L53 = 15.16 RÈGLE LE 15°
L54 = 3.95 RÈGLE LG. 3.95
L55 = 5.125 RÈGLE LG. 5.1
L56 = 2.485 RÈGLE Ø 2.5
L57 = 1.5

---

Et je vois pas comment obtenir la totalité. Bien sur, d'un classeur à l'autre les données changent, et par classeurs, il y a minimum 4 zones de texte à recoller dans des cellules précisent.

Je posterais bien mon fichier, mais là je ne peux pas pour des problèmes de confidentialité

en fait, je suis limité à 255 caractères :(

Tu as fait un ctrl + Fin dans ton txtbox pour voir ce qu'il y a au bout du bout ?

oui, mais est bien fini à 255 caractères :cry:

C'est quoi ce textbox ? Dans un userform, dis-tu ?

Et si tu supprimes Text
Tu peux tester

Code:

---

txtVS = Selection.Characters(1)

---

Juste pour voir :(

Bon, la syntaxe ci dessus ne s'applique pas à une zone de texte.
Je pense que c'est cell-ci qui pose pb.
De quel type est-elle ? Quelle origine ? "Boîte à outils commandes" ou "... formulaire" ?

Voilà, j'ai fais un classeur avec juste ce qu'il faut.

Ok, j'ai trouvé.
Tu utilises un rectangle pour loger ton texte
Avec une zone de texte : même punition
Essaie de faire

Code:

---

msgbox len(Selection.Characters.Text) 'Tu as 255 caractères

---

et donc ce n'est pas le textbox de ton userform qui est en cause.
J'ai utilisé un textbox de la barre d'outils Contrôles et j'ai mis ce code

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Activate() txt = ActiveSheet.OLEObjects("TextBox1").Object.Value MsgBox Len(txt) Me.TextBox1.SetFocus Me.TextBox1.SelStart = 0 Me.TextBox1.SelLength = Len(Me.TextBox1) Me.TextBox1.Value = txt End Sub

---

et c'est tout ok
A+

:cry:

Pfff, j'ai une erreur sur :

Code:

---

txt = ActiveSheet.OLEObjects("TextBox1").Object.Value

---

Citation:

---

Erreur d'exécution '1004':

Impossible de lire la propriété OLEObjects de la classe Worksheet.

---

Tu es en office 2007 ? je suis sous office 2003 moi.

:cry:

Non, je suis sur 2003 et le code fonctionne chez moi.
Le pb est sans doute dans le nom de l'objet. Par défaut, j'avais TextBox1, sélectionne le txtb et vérifie son nom dans la fenêtre en haut à gauche.
A+

Code:

---

txt = ActiveSheet.OLEObjects("TextBox1").Object.Value

---

Je comprend pas bien. le "TextBox1" ci-dessus, c'est le TextBox de mon Userform ?

C'est bon j'ai compris l'histoire du TextBox.

Le problèmes, c'est que mes rectangles sont déjà dans les feuilles. Et justement, je dois récuperer les données pour les coller dans des cellules et ensuite les effacer.

Et j'ai pas loin de 8000 classeurs à modifier donc, je ne vais pas me les faires à la main. :?

Je trouve pas, mais y-a-t-il moyen de convertir mon rectange en TextBox ?

Bon, c'est pas le top mais là ça marche.

Je vous met le fichier en annexe au cas ou.

Ben oui ! Les textbox de la boîte à outils Contrôles ne sont pas limités à 255 caracères. Et mon code fonctionne.