copier le contenu d'une zone de texte dans celluleRésolu

Question

Bonjour!


Je cherche un moyen de r&#233;cup&#233;rer le contenu d'une zone de texte et de le copier dans une cellule d'une feuille Excel en passant par du code vba.


Pour plus de d&#233;tail, j'ai un classeur avec un nombre de feuilles trop important pour pouvoir s'amuser &#224; faire du simple CTRL+C et CTRL+V. Sur chacune de mes feuilles, j'ai deux zones de texte dont je veux r&#233;cup&#233;rer le contenu et le mettre dans une cellule.


J'ai trouv&#233; copier ma zone de texte, mais quand je la copie cela me donne la copie de cette m&#234;me zone de texte et non pas la copie de son contenu.


Merci d'avance &#224; ceux qui voudront bien m'aider un peu.

mortalino · Answer

Je sais pas si c'est exactement &#231;a que tu cherches, mais j'ai pos&#233; une question du m&#234;me genre (VBA),
en cherchant je me suis auto r&#233;pondu :

http://www.vbfrance.com/forum.v2.aspx?id=724333

En esp&#233;rant t'aider...

@ ++

  Mortalino

cs_dodi86 · Answer

Je te remercie de ta r&#233;ponse, cependant cela ne correspond pas &#224; ce que je veux faire. Ma zone de texte n'est pas dans un formulaire et elle n'est pas reconnue comme un TextBox, mais comme un shape. J'ai essay&#233; de re garder les propri&#233;t&#233;s qui lui sont associ&#233;es, mais je n'ai pas trouv&#233; de solution.
Merci de ton aide quand m&#234;me.

cs_dodi86 · Answer

Je viens de trouver la solution &#224; mon probl&#232;me. Pour ceux que &#231;a pourrait int&#233;resse, voici la ligne de code qui permet de r&#233;cup&#233;rer la valeur qui se trouve dans une zone de texte :
T = Worksheets("Feuil2").Shapes("Zone de texte 1").TextFrame.Characters.Text

cs_dodi86 · Answer

Je viens de trouver la solution &#224; mon probl&#232;me. Pour ceux que &#231;a pourrait int&#233;resse, voici la ligne de code qui permet de r&#233;cup&#233;rer la valeur qui se trouve dans une zone de texte :
T = Worksheets("Feuil2").Shapes("Zone de texte 1").TextFrame.Characters.Text

mortalino · Answer

Bien vu !

et merci pour le code, &#231;a me servira aussi.

@ ++

  Mortalino

Copier le contenu d'une zone de texte dans cellule

5 réponses

Discussions similaires