lier un textbox à une cellule

[ljoue]

Bonjour à tous,

Je voudrais lier un Text Box (sur la feuille et non sur Userform) à une cellule.
En fait j'aimerais que le contenu du Text Box soit égal à la valeur d'une cellule (Chaine de charactères)

J'ai essayé avec ce code :

Sub Test()
ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = Range("A1").Value
Range("A2").Select
End Sub

...Mais le problème est que dépassé un certains nombre de charactères la macro ne fonctionne pas et n'affiche rien dans le Text Box.
Comment faire pour afficher un Texte de plus de 50lignes par exemple.

Merci d'avance.
Laurent

 

[ziopizza]

Re : lier un textbox à une cellule

Bonjour Laurent,
je te joins un petit exemple,mais pas sur d'avoir compris?
Salut
Yves

 

[Moa]

Re : lier un textbox à une cellule

Salut Ljoue !

Tu n'a pas besoin de macro pour faire ça.

Il te suffit de lier ta cellule à ton "TextBox" via les propriétés de ce dernier avec la propriété "LinkedCell".

Quand tu écriras dans ta cellule, les données seront reportées dans ton "TextBox" automatiquement et vice versa.

@ +++

ChrisOne