Ecrire dans une Zone de Texte

[Imy]

Bonjour,

Comment écrire, en utilisant VBA, de longues chaînes (plusieurs lignes) dans les zones de textes (il ne s'agit pas des Textbox😉 ) s'il vous plaît?

Merci d'avance.

 

[Catrice]

Re : Ecrire dans une Zone de Texte

Bonjour,

Voir l'exemple joint.

 

[Imy]

Re : Ecrire dans une Zone de Texte

Merci beaucoup, cela me permet d'avancer un peu...

Mais je bloque encore : lorsque je remplis la variable mavar avec une longue chaîne de caractères, à nouveau, rien ne se passe, le contenu du texte reste inchangé !

 

[Catrice]

Re : Ecrire dans une Zone de Texte

Bonjour,

Une chaine de quelle longueur ?
Peux tu donner un exemple ?
Il doit y avoir une limite de taille.

 

[Imy]

Re : Ecrire dans une Zone de Texte

Sub Test()
       mavar = [F4] & [F5] & [F6] & [F7] & [F8] & [F9] & [F10]
       mavar = mavar & [F4] & [F5] & [F6] & [F7] & [F8] & [F9] & [F10]
    ActiveSheet.Shapes("Zone de Texte 1").TextFrame.Characters.Text = mavar

Voilà mes tests : si je suis dans l'interface Excel, je peux entrer tout ce texte sans difficulté. Maintenant, si on fait l'inverse, ce qui est plus intéressant pour automatiser l'ensemble, je rentre dans VBA ma chaîne (plus de 200 de caractères au moins) et là VBA lit la ligne, mais le texte ne change pas!
Oui il doit y avoir une limite de caractères pour la commande 'text'.😡

En passant par les macros, je crois néanmoins avoir trouvé une solution :🙂

  ActiveSheet.Shapes("Zone de Texte 1").TextFrame.Characters.Text = _
        "Maître corbeau sur un arbre perchéTenait en son bec un fromage.Maître renard, par l'odeur alléché.Lui tint à peu près ce langage:Hé ! bonjour, Monsieur du Corbeau!Que vous êtes joli ! que vous me semb"
    ActiveSheet.Shapes("Zone de Texte 1").TextFrame.Characters(201).Insert String:= _
        "lez beau !Sans mentir, si votre ramageMaître corbeau sur un arbre perchéTenait en son bec un fromage.Maître renard, par l'odeur alléché.Lui tint à peu près ce langage:Hé ! bonjour, Monsieur du Corbeau"
    ActiveSheet.Shapes("Zone de Texte 1").TextFrame.Characters(401).Insert String:= _
        "!Que vous êtes joli ! que vous me semblez beau !Sans mentir, si votre ramage"

Pour passer outre la limite, il suffisait "d'insérer" les caractères😱 ... Ce n'est pas trop évident. Je ne crois pas que Excel 2000 faisait cela! Merci pour votre aide malgré tout!

 

[Catrice]

Re : Ecrire dans une Zone de Texte

Hello,

Il y a une limite à 255 dans les cellules et 290 si on concaténe, bizarre.
Pour ne pas avoir de pb, j'ai fait une petite boucle à 254.
Elle tronçonne le texte en 254 sur une plage de cellule et colle tout dans la zone de texte.
Il faut peut etre paufiner un peu les retour chariot (si on en veut) et l'ajout d'un espace (que je rajoute et qui a l'air de se doubler qq part) mais sinon ça fonctionne bien jusqu'à la limite de ce que peut contenir la boite texte ;-)

 

[Imy]

Re : Ecrire dans une Zone de Texte

Oui, je crois que c'est la solution, j'ai fait une sub similaire mais dont le tampon était limité lui à 200. La longueur était copiée sur les nombres issus de la macro. Mais apparemment votre exemple montre qu'on peut aller à 254 (ce qui est plus logique)

 

[fuenvi]

Re : Ecrire dans une Zone de Texte

Bonjour,
Merci pour l code mais j'ai encore le probleme de sauter des lignes. Comment le resoudre??

 

[fuenvi]

Re : Ecrire dans une Zone de Texte

Bonjour,
Merci pour l code mais j'ai encore le probleme de sauter des lignes. Comment le resoudre??
Merci d'avance

 

[JNP]

Re : Ecrire dans une Zone de Texte

Bonjour le fil 🙂,

Merci pour l code mais j'ai encore le probleme de sauter des lignes. Comment le resoudre??

Euh, qu'entends-tu par là 😕 ?
Vois du côté de vbCrLf ou Chr(10) peut-être 🙄...
Bon dimanche 😎