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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.