Macro + zone de texte (feuille)

[pattedechien]

Bonjour,

J'ai un soucis avec mes zones de texte.

J'ai une zone de texte au sein de ma feuille excel et je voudrais que le texte de celle-ci soit modifiée par une valeur de cellule. Je ne sais pas s'il existe une macro pour cela mais si vous en avez connaissance, cela m'aiderais énormément.

Merci par avance

 

[tototiti2008]

Re : Macro + zone de texte (feuille)

Bonjour pattedechien,

Aurais-tu un petit bout de fichier à nous fournir, avec ta cellule contenant le texte et ta zone de texte ?

 

[pattedechien]

Re : Macro + zone de texte (feuille)

Je vais donc reformuler ma question :

J'aimerais en fait que ma zone de texte qui se positionne sur l'étiquette énergie est la même valeur que ma textbox1.
(et dans l'absolu, est-ce que c'est possible, via un bouton, que j'ai la même macro sans la textbox1 mais avec la valeur contenu dans la cellule R38.

Merci

 

[tototiti2008]

Re : Macro + zone de texte (feuille)

Re,

Peut-être

   ActiveSheet.Shapes("kwh A").TextFrame.Characters.Text = ActiveSheet.OLEObjects("Textbox1").Object.Text

Eventuellement remplacer le nom "kwh A" en "consok A" en fonction de l'endroit où tu veux l'écrire

 

[pattedechien]

Re : Macro + zone de texte (feuille)

Cela fonctionne parfaitement et je n'est plus besoin de mon "consok A". Je vais être chiant, mais y aurait-il possibilité de rajouter l'unité sans l'écrire dans la textbox du type :
ActiveSheet.OLEObjects("Textbox1" & "kwh/m².an").Object.Text

Un grand merci pour ta réponse précédente.

 

[tototiti2008]

Re : Macro + zone de texte (feuille)

Re,

Plutôt comme ça

ActiveSheet.Shapes("kwh A").TextFrame.Characters.Text = ActiveSheet.OLEObjects("Textbox1").Object.Text &  & " kwh/m².an"

 

[pattedechien]

Re : Macro + zone de texte (feuille)

Merci. c'est nickel