[Resolu] [VBA] Macro Excel - Zone de texte

Macro Excel - Zone de texte [Resolu] [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 26-06-2009 à 10:18:11    

Bonjour,
 
Je fais une macro excel et je dois copier les données d'une cellule dans une zone de texte deja existante et remplie.
 
Je n'arrive pas a savoir si c'est possible et si oui qu'elles sont les methodes à utiliser.
 
Merci de votre aide


Message édité par fatloui le 26-06-2009 à 14:22:07
Reply

Marsh Posté le 26-06-2009 à 10:18:11   

Reply

Marsh Posté le 26-06-2009 à 10:32:39    

Ca ne pose aucun souci... ça va venir écraser la valeur existante, mais c'est tout (comme si tu retapes une valeur là où il y en a déjà une)

Reply

Marsh Posté le 26-06-2009 à 10:34:25    

ok merci mais je trouve pas la classe permettant d'acceder a une zone de texte existante (j'ai chercher textbox mais c'est pas ca)

Reply

Marsh Posté le 26-06-2009 à 10:45:41    

Tu y accèdes directement avec son nom.

Reply

Marsh Posté le 26-06-2009 à 10:48:34    

mais la zone de texte n'a pas de nom car elle est deja existante sur le fichier excel. Sinon ca me derange pas d'en créer une nouvelle mais je trouve pas comment s'appelle cet objet. Quand je tappe zone de texte dans l'aide il y a pas grand chose

Reply

Marsh Posté le 26-06-2009 à 10:56:33    

Si je me souviens bien dans Word il y a 2 types de zone de texte visuellement identiques : une pour word et une pour VBA. Elles ne sont pas placées dans la même barre d'outils. C'est la deuxième qu'il faut utiliser si tu veux travailler dessus.


Message édité par Deamon le 26-06-2009 à 10:56:53
Reply

Marsh Posté le 26-06-2009 à 10:59:51    

ok merci pour ton aide.
Je suis sous excel. Je continue a chercher le nom de l'objet mais si qq le connait, je suis preneuse

Reply

Marsh Posté le 26-06-2009 à 11:13:56    

Oui, c'est en effet ça...
Pour Excel, il faut aller dans la partie des outils de types "contrôles de formulaires".
 
J'ai effectué un test rapide, voilà le code généré :
 
ActiveSheet.Shapes("Label 1" ).Select
Selection.Characters.Text = "Test HFR"
 
que tu peux simplifier en :
ActiveSheet.Shapes("Label 1" ).Characters.Text = "Test HFR"

Reply

Marsh Posté le 26-06-2009 à 11:20:14    

Nikel ca marche !!
 
Merci ^^

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed