J'aimerais pouvoir ramener l'information inscrite dans une cellule Excel dans une zone de texte par macro. Le problème est que les zones de texte fonctionnent par bloc de 200 caractères. Si la cellule comporte plus de 200 caractères, l'information ne se transmet pas. Cependant, si la cellule comprend moins de 200 caractères, il n'y a pas de problème. J'offre 25$ à celui qui pourra résoudre mon problème.
Essaye ce code, il copie le texte de la cellule A4 dans la zone texte 'Text Box 3'.
Code:
Sub Macro1()
Dim I As Byte
ActiveSheet.Shapes('Text Box 3').Select
Selection.Characters.Text = ''
For I = 0 To Int(Len(Range('A4')) / 200)
Selection.Characters(1 + (I * 200)).Insert String:=Mid(Range('A4'), (I * 200) + 1, 200)
Next I
End Sub