Insérer Formule dans une TextBox

Salut tout le monde,

j'arrive à créér une TextBox et de la nommer, mais mon problème est que je ne sais pas comment insérer une Formule dedans.

Pour l'instant j'ai ceci:

Code:

---

1 2 3 4 5 6

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 196.5, 140.25, _ 26.25, 18#).Name = "TextBox_1"   Set Sh1 = ActiveSheet.Shapes("TextBox_1") 'pour la formule: Sh1.TextFrame.Characters.Text = Worksheets("Données").Range("C11").Text

---

Or ce dernier bout de code n'insère que la valeur de la cellule C11 de la feuille "Données" dans la Textbox et non pas la formule référant à la cellule, càd que si je change la valeur de la cellule, le Text de la Textbox ne se met pas à jour (car il n'a que mis la valeur et non la formule).

Quelqu'un connaît une solution à ce problème?

Merci d'avance.

Je ne comprends pas trop ce que tu cherches à faire en mettant une formule dans un textbox, mais pour récupérer la formule de ta cellule, ile me semble qu'il faut passer par

Code:

---

Worksheets("Données").Range("C11").Formula

---

Maintenant je ne suis pas sur que cela te donnera le résultat que tu escomptes à la base (notamment quand tu parles de changer la valeur de la cellule et de "la mise à jour" du textbox)