Ramener valeurs de cellule dans zone de texte

[Pierre]

Bonjour à tous,

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.

Bonne journée

Bryan

 

[JeanMarie]

Bonsoir

Essaye ce code, il copie le texte de la cellule A4 dans la zone texte 'Text Box 3'.

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

@+Jean-Marie

 

[Bryan]

Tu es mon sauveur Jean-Marie.