Pb de taille maximale pour les ".value"

[Renaud]

Bonjour à tous,


J'ai un problème de bug dans une macro qui intègre des .value

.Body = Range('B12').Value & Chr(13) & Chr(13) & Range('B13').Value & Range('B14').Value & Range('B15').Value & Chr(13) & Chr(13) & Range('B16').Value & Range('B17').Value & Chr(13) & Chr(13) & Range('18').Value & Range('B19').Value & Chr(13) & Chr(13) & Range('B20').Value & Range('B21').Value & Range('B22').Value & Chr(13) & Chr(13) & Range('B23').Value & Chr(13) & Range('B23').Value & Range('B24').Value & Chr(13) & Chr(13) & Range('B25').Value & Chr(13) & Chr(13) & Range('B26').Value & Chr(13) & Range('B27').Value & Chr(13) & Range('B28').Value & Chr(13) & Range('B29').Value & Chr(13) & Range('B30').Value

y a t il un nombre maximal de caractères à avoir dans une cellule ou dans une ligne de VBA?

Que puis-je faire sinon?


Merci

 

[sousou]

Bonjour

dans une celule le maximum est me semble-t'il 256 caractère

Pas vraiment de solution, mais nous ne connaissons pas ton contexte.

 

[WILFRIED]

Salut renaud, sousou,

Une solution pour pouvoir mettre plus de 256 caractére dans une cellule est de passer par une variable de type string :

dim mon_text as string


mon_text=Range('B12').Value & Chr(13) & Chr(13) & Range('B13').Value & Range('B14').Value & Range('B15').Value & Chr(13) & Chr(13) & Range('B16').Value & Range('B17').Value & Chr(13) &
Chr(13) & Range('18').Value & Range('B19').Value & Chr(13) & Chr(13) & Range('B20').Value & Range('B21').Value & Range('B22').Value & Chr(13) & Chr(13) & Range('B23').Value & Chr(13) &
Range('B23').Value & Range('B24').Value & Chr(13) & Chr(13) & Range('B25').Value & Chr(13) & Chr(13) & Range('B26').Value & Chr(13) & Range('B27').Value & Chr(13) & Range('B28').Value & Chr(13) & Range('B29').Value & Chr(13) & Range('B30').Value
.body=mon_text

A+

 

[Renaud]

Merci pour cette réponse. Mon problème venait en fait d'un trop grand nombre de caractères sur une seule ligne de VBA.
Quelqu'un connait - il d'ailleurs cette limite?


Renaud

 

[WILFRIED]

Re-

Une solution pour pouvoir mettre plusieur chose en une ligne est toujour de passer par une variable :


mon_text=Range(\\'B12\\').Value & Chr(13) & Chr(13) & Range(\\'B13\\').Value & Range(\\'B14\\').Value &
Range(\\'B15\\').Value & Chr(13) & Chr(13) & Range(\\'B16\\').Value & Range(\\'B17\\').Value & Chr(13)
mon_text=mon_text & Chr(13) & Range(\\'18\\').Value & Range(\\'B19\\').Value & Chr(13) & Chr(13) & Range(\\'B20\\').Value &
Range(\\'B21\\').Value & Range(\\'B22\\').Value & Chr(13) & Chr(13) & Range(\\'B23\\').Value & Chr(13)
mon_text=mon_text & Range(\\'B23\\').Value & Range(\\'B24\\').Value & Chr(13) & Chr(13) & Range(\\'B25\\').Value & Chr(13) &
Chr(13) & Range(\\'B26\\').Value & Chr(13) & Range(\\'B27\\').Value
mon_text=mon_text & Chr(13) & Range(\\'B28\\').Value &
Chr(13) & Range(\\'B29\\').Value & Chr(13) & Range(\\'B30\\').Value
.body=mon_text

et ainsi de suite.

C'est un peu lourd à gérer mais bon c'est la seul méthode que je connaisse.

A+

 

[Renaud]

Lourd mais efficace.

Merci

Renaud