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
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