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.