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

**srame** · 25/04/2007, 11h35

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 ?

**ouskel'n'or** · 25/04/2007, 12h08

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

**srame** · 25/04/2007, 12h14

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

Code :

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

TextBox1.Value = Selection.Characters.Text

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

**ouskel'n'or** · 25/04/2007, 12h20

As-tu essayé

Code :

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

Textbox1.value = Selection

A+

**srame** · 25/04/2007, 12h22

Envoyé par ouskel'n'or

As-tu essayé

Code :

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

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. :/

**ouskel'n'or** · 25/04/2007, 12h45

Ok, j'avais mal lu... A passer d'un post sur l'autre, je me croyais dans Word, le textbox étant dans un userform

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

**srame** · 25/04/2007, 12h51

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

**ouskel'n'or** · 25/04/2007, 12h54

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 ?

**srame** · 25/04/2007, 13h06

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

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 :

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

txtVS = Selection.Characters.Text

se stoppe à la ligne :

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é

**srame** · 25/04/2007, 13h11

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

**ouskel'n'or** · 25/04/2007, 13h46

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

**srame** · 25/04/2007, 13h52

oui, mais est bien fini à 255 caractères

**ouskel'n'or** · 25/04/2007, 13h55

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

**ouskel'n'or** · 25/04/2007, 14h06

Et si tu supprimes Text
Tu peux tester

Code :

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

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" ?

**srame** · 25/04/2007, 14h37

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

**ouskel'n'or** · 25/04/2007, 15h20

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

Code :

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

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 :

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

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+

**srame** · 25/04/2007, 15h36

Pfff, j'ai une erreur sur :

Code :

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

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

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.

**ouskel'n'or** · 25/04/2007, 15h43

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+

**srame** · 26/04/2007, 07h58

Code :

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

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

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

**srame** · 26/04/2007, 08h17

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.

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

Macros et VBA Excel

Discussions similaires

Partager

Partager