XL 2016 longeur de texte dans zone de texte

[Usine à gaz]

Bonjour à toutes et à tous,

Toujours à tenter d'améliorer mon fichier de travail, "ça coince" sur la capacité longueur de texte dans une zone de texte.

je m'explique :
Dans le classeur joint, j'ai créé une zone de texte que j'ai liée à la cellule A2
Le souci est que la zone de texte n'affiche pas la totalité de mon texte en A2.
j'ai cherché sans trouver pour l'instant si limite il y a ou voir ce qu'il faut faire pour avoir tout le texte de A2 quelle que soit sa longueur.

Auriez-vous la solution ?
Je continue mes recherches

Avec mes remerciements,
Je vous souhaite à toutes et à tous une agréable fin de journée,
Amicalement,
arthour973,

 

[job75]

Bonjour Lionel,

La formule de liaison =A2 ne permet de copier que les 255 premiers caractères du texte de la cellule A2.

Pour tout copier exécute cette macro :

Sub Remplir()
With Sheets("LaCopie")
    .DrawingObjects("ZoneTexte 2").Text = .[A2]
End With
End Sub

A+

 

[Usine à gaz]

Bonjour Gérard,

Toujours là pour moi (LOL va falloir prévoir quelque chose pour te remercier).
Une grand merci déjà pour ce code.
je teste et je te dis.
lionel.

 

[Usine à gaz]

Re-Gérard,
Bon sang, ce que je me sens petit LOL
Evidemment, ça marche.
Merci vraiment Gérard

 

[Usine à gaz]

Bonjour à toutes et à tous et plus particulièrement à gérard,

Je reviens sur le fil pour un souci que je n'avais pas prévu.

Bien évidemment, je code de Gérard fonctionne parfaitement et encore un grand merci car, en plus, facile à inclure dans ma zizine à gaz.

Le but de la manoeuvre :
J'ai remarqué que mon fichier est très lourd et cela provient de l'importation par copier/coller des annonces sur sites.
Je pense que passer par la zone de texte et restituer la zone de texte, en A2 par exemple, permettrait, sur des milliers de lignes, de réduire le poids de mon fichier.

Mais voilà (pauvre tête que je suis LOL) j'ai oublié un paramètre :
Il ne s'agit pas de copier le texte d'une cellule dans une zone de texte mais plusieurs cellules.

N'ayant pas trouvé la solution, je joins un fichier dans lequel je montre ce que j'ai fait dans l'attente d'une meilleure solution.
Je continue mes recherches.
Merci à toutes et à tous,
Amicalement,
arthour973,

 

[job75]

Bonjour Lionel,

Pourquoi passer par des cellules intermédiaires ?

Introduis le texte concaténé directement dans la Zone de texte avec le code de mon post #2.

A+

 

[Usine à gaz]

Bonjour Gérard,

Merci encore une fois pour m'avoir répondu
OK, je vais faire comme ça.
Lionel,

 

[Usine à gaz]

Bonjour à toutes et à tous,

Je reviens sur le fil pour une amélioration du code (si c'est possible ?)

Bien sûr, le code de Gérard, fonctionne toujours bien.

Mais :
Si je copie le texte de l'annonce lien en D2, dans la zone de texte, le texte est collé comme il est dans l'annonce,
c'est à dire les lignes les unes en dessous des autres.

Est-il possible de coller comme l'exemple dans le classeur joint ?

Un grand merci à toutes et à tous et particulièrement à Gérard
Amicalement,
arthour973,

 

[job75]

Bonsoir Lionel,

Il suffit de supprimer les renvois à la ligne par xxx = Replace(xxx, vbLf, "")

A+

 

[Usine à gaz]

Bonsoir Gérard,
encore merci mais je n'arrive pas à intégrer dans le code :
(je sais, je suis une bille LOL)

Sub Remplir()
'insère texte dans zone texte
With Sheets("LaCopie")
    .DrawingObjects("ZoneTexte 1").Text = .[b17]
    .DrawingObjects("ZoneTexte 1") = Replace(xxx, vbLf, "")
    'Replace(xxx, vbLf, "")
End With

encore un p'tit coup d'pouce ?

Vraiment merci pour ta patience.
lionel,

 

[job75]

Sub Remplir()
'insère texte dans zone texte
With Sheets("LaCopie")
    .DrawingObjects("ZoneTexte 1").Text = Replace(.[b17], vbLf, "")
End With

 

[Usine à gaz]

LOL merci Gérard,

Quand on sait pas, on sait pas, je ne compte plus toutes les recherches que j'ai faites ainsi que tous mes essais biscornus.

Merci Gérard, c'est super
lionel,