Ramener valeurs de cellule dans zone de texte

  • Initiateur de la discussion Pierre
  • Date de début
P

Pierre

Guest
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

XLDnaute Barbatruc
Bonsoir

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

@+Jean-Marie
 
Haut Bas