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

cs_dodi86
Messages postés
7
Date d'inscription
mercredi 19 avril 2006
Dernière intervention
24 mai 2006
- 25 avril 2006 à 16:56 - Dernière réponse : mortalino
Messages postés
6812
Date d'inscription
vendredi 16 décembre 2005
Dernière intervention
21 décembre 2011
- 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

Meilleure réponse
cs_dodi86
Messages postés
7
Date d'inscription
mercredi 19 avril 2006
Dernière intervention
24 mai 2006
- 26 avril 2006 à 09:02
3
Merci
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

Merci cs_dodi86 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 86 internautes ce mois-ci

mortalino
Messages postés
6812
Date d'inscription
vendredi 16 décembre 2005
Dernière intervention
21 décembre 2011
- 26 avril 2006 à 08:22
0
Merci
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
Messages postés
7
Date d'inscription
mercredi 19 avril 2006
Dernière intervention
24 mai 2006
- 26 avril 2006 à 08:42
0
Merci
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
Messages postés
7
Date d'inscription
mercredi 19 avril 2006
Dernière intervention
24 mai 2006
- 26 avril 2006 à 09:00
0
Merci
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
Messages postés
6812
Date d'inscription
vendredi 16 décembre 2005
Dernière intervention
21 décembre 2011
- 26 avril 2006 à 09:04
0
Merci
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.