Discussion :

[Kaya_VB_13]

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.

[Acid59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)