Copier le contenu d'une zone de texte dans cellule [Résolu]

cs_dodi86 7 Messages postés mercredi 19 avril 2006Date d'inscription 24 mai 2006 Dernière intervention - 25 avril 2006 à 16:56 - Dernière réponse : mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention
- 26 avril 2006 à 09:04
Bonjour!


Je cherche un moyen de récupé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étail, j'ai un classeur avec un nombre de feuilles trop important pour pouvoir s'amuser à faire du simple CTRL+C et CTRL+V. Sur chacune de mes feuilles, j'ai deux zones de texte dont je veux récupérer le contenu et le mettre dans une cellule.


J'ai trouvé copier ma zone de texte, mais quand je la copie cela me donne la copie de cette même zone de texte et non pas la copie de son contenu.


Merci d'avance à ceux qui voudront bien m'aider un peu.
Afficher la suite 

5 réponses

cs_dodi86 7 Messages postés mercredi 19 avril 2006Date d'inscription 24 mai 2006 Dernière intervention - 26 avril 2006 à 09:02
+3
Utile
Je viens de trouver la solution à mon problème. Pour ceux que ça pourrait intéresse, voici la ligne de code qui permet de récupérer la valeur qui se trouve dans une zone de texte :
T = Worksheets("Feuil2").Shapes("Zone de texte 1").TextFrame.Characters.Text
Cette réponse vous a-t-elle aidé ?  
mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention - 26 avril 2006 à 08:22
0
Utile
Je sais pas si c'est exactement ça que tu cherches, mais j'ai posé une question du même genre (VBA),
en cherchant je me suis auto répondu :

http://www.vbfrance.com/forum.v2.aspx?id=724333

En espérant t'aider...

@ ++

Mortalino
cs_dodi86 7 Messages postés mercredi 19 avril 2006Date d'inscription 24 mai 2006 Dernière intervention - 26 avril 2006 à 08:42
0
Utile
Je te remercie de ta réponse, cependant cela ne correspond pas à 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é de re garder les propriétés qui lui sont associées, mais je n'ai pas trouvé de solution.
Merci de ton aide quand même.
cs_dodi86 7 Messages postés mercredi 19 avril 2006Date d'inscription 24 mai 2006 Dernière intervention - 26 avril 2006 à 09:00
0
Utile
Je viens de trouver la solution à mon problème. Pour ceux que ça pourrait intéresse, voici la ligne de code qui permet de récupérer la valeur qui se trouve dans une zone de texte :
T = Worksheets("Feuil2").Shapes("Zone de texte 1").TextFrame.Characters.Text
mortalino 6812 Messages postés vendredi 16 décembre 2005Date d'inscription 21 décembre 2011 Dernière intervention - 26 avril 2006 à 09:04
0
Utile
Bien vu !

et merci pour le code, ça me servira aussi.

@ ++

Mortalino

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.