Insérer du texte dans une forme libre

Bonjour à tous,
Je n'ai pas trouvé ma réponse sur le forum, aussi je pose ma question.
Je crée des formes libres (important, ce ne sont pas des formes pré-définies par Excel), et quand je veux insérer du texte au travers de VBA (avec Selection.Characters.Text = "texte") rien ne se passe, contrairement à des formes pré-définies par Excel.
Même lorsque je veux insérer manuellement du texte dans ces formes libre, je n'y parviens pas puisque que la commande du clic droit "modifier le texte" n'apparait pas.

Quelqu'un peut il me dire si je peux insérer du texte dans ces formes libres et si oui, quelle commande ou astuce VBA le permet ?

Merci d'avance

Salut,

peut-etre une piste avec :
http://heureuxoli.developpez.com/off...re-dans-coeur/

Ca dépend de quelle forme libre il s'agit.

S'il s'agit d'une forme pouvant contenir du texte, la syntaxe pour changer ce texte est, par exemple pour une forme nommée "Test" :

Code:

---

ActiveSheet.Shapes("Test").TextFrame2.TextRange.Text = "Mon texte"

---

Il faut avouer que ce n'est pas simple.

Un truc qui m'étonne, c'est que Excel ne t'ai pas mis un message d'erreur pour la ligne de code que tu as indiqué, étant donné que Characters n'est pas membre de l'objet Shapes.
Ca voudrait dire que ta sélection n'est pas un Shape.

bonsoir, et merci pour vos contributions

pour jpcheck, je n'ai pas réussi à identifier la piste
pour menhir, c'est bien une shape, mais ma commande "characters" n'intervenait pas correctement (jeviens de m'en rendre compte) mais ne polluait pas non plus le code. J'ai essayé ton code, mais le texte ne s'affiche toujours pas dans ma forme libre.

Bonjour,

Une solution est de passer par une cellule dans laquelle tu pourras renseigner ton texte.

Par exemple, tu mets d'abord ton texte en A1, puis tu sélectionnes ta forme libre et tu appuies sur la touche F2. Tu tapes alors dans la barre de formule : =A1.
Et hop, tu n'as plus alors qu'à ajuster le format, et le positionnement du texte.
Une fois ton texte inséré dans ta forme, tu peux même supprimer ta formule (en refaisant les mêmes opérations décrites ci-dessus) et le texte restera dans ta forme. Ou alors tu laisses la formule, ce qui permet de modifier facilement le texte en modifiant le contenu de la cellule.

Si tu as besoin de passer par du VBA, ça devrait être possible en utilisant l'enregistreur de macros.

Je l'ai testé ce code avant de le donné et il marche.
A condition bien sûr de mettre la bonne désignation pour la forme et que ce soit bien une forme.

Essaye

Code:

---

1 2	ActiveSheet.Shapes("Test").TextFrame2.TextRange.Text = "Mon texte" MsgBox ActiveSheet.Shapes("Test").TextFrame2.TextRange.Text

---

Si la fenêtre qui s'ouvre affiche "Mon texte", c'est que la commande que je t'ai donné marche et que ton problème est sans doute le format de texte (texte blanc, trop petit, mal placé, etc.) ou qu'elle s'applique à une autre forme que celle que tu souhaites.

Citation:

---

Envoyé par francoislc

c'est bien une shape, mais ma commande "characters" n'intervenait pas correctement (je viens de m'en rendre compte) mais ne polluait pas non plus le code.

---

Quand j'applique .Characters.Text = "texte" à une forme, ça provoque une erreur d'exécution, même en passant par un Select/Selection.
Donc, ce que tu sélectionnes n'est pas une forme. Soit c'est autre chose, soit c'est une partie de la forme, par exemple le texte que contient la forme (puisque Characters est une méthode de TextFrame).

Bonjour,

Effectivement en créant une forme libre, ce que vous proposez (Menhir et zenpbb) fonctionne.
Seulement, et j'avais trop la tête dedans, cela ne fonctionne pas pour insérer du texte dans les formes que je crée. Le problème vient surement de la manière dont elles sont créées puisque j'utilise le tuto "Dessiner une carte de france avec les fonctions de dessins" par Arkham46 disponible sur le site et qui passe par des données SVG avant de convertir le constructeur en forme.
voilà, voilà... merci

Citation:

---

Envoyé par francoislc

Le problème vient surement de la manière dont elles sont créées puisque j'utilise le tuto "Dessiner une carte de france avec les fonctions de dessins" par Arkham46 disponible sur le site et qui passe par des données SVG avant de convertir le constructeur en forme.

---

J'adore quand les informations sont données au compte-goutes... :roll: