Transfert Textbox vers cellule

Bonjour a tous,

J'ai un petit probleme de syntaxe avec une textbox.

J'ai une textbox sur une feuille excel (pas dans un userform) dans lequel est ecrit un texte.

Je souhaiterais copier ce texte dans une cellule de la feuille mais je n'arrive pas a trouver la bonne syntaxe VBA pour le faire.

Auriez-vous une idee?

Je vous remercie d'avance.

Pubbins.

Bonjour

Code:

---

1 2 3

Private Sub TextBox1_Change() Range("A1") = TextBox1.Value End Sub

---

cordialement

Je suis desole mais je me suis mal exprime.

Ce n'est pas une textbox que j'ai cree avec la control box mais c'est une text box que j'ai creee avec la boite a outils "Dessin" ou "drawing". Du coup, je crois que c'est plutot une shape.

De plus, je veux copier le texte de la textbox dans une cellule contenue dans une autre feuille.

Et je n'arrive pas a trouver la synthaxe avec les shapes.

Je vous remercie d'avance et desole pour la mauvaise formulation.

Bonjour,

Si je comprend bien c'est une zone de texte
Tu peux faire ceci :

Code:

---

Sheets("Feuil2").Range("A1") = Sheets("Feuil1").Shapes("NomZoneTexte").TextFrame.Characters.Text

---