Quantité de texte dans une cellule....

Bonjour,

limiter le nombre de caractères à 255 ...



"Danny" <Danny@discussions.microsoft.com> a écrit dans le message de news:
F9A2CCCF-8468-4134-BFE3-E66D01DA4131@microsoft.com...

Bonjour !

J'ai un petit problème...
J'ai un texte dans une cellule qui ne s'affiche pas complètement lors de
la
méthode AUTOFIT. Ce texte a peut-etre entre 250-300 caractère.

Aussi, le format de cellule est a "Rnvoyé a la ligne automatiquement" mais
passé 11 lignes, il ne veut pas le faire pour le restant du texte ???

Y-a-t-il un moyen de remédie a ca ?

Merci pour tous !!
Danny.

Salut !

J'espérais ne pas avoir cette réponse des 255car.....;o) Je la redoutais !

Mais merci bcp !

J'ai bien hate que ces limitations soit dépassées ;-)
Bonne journée a vous !

Bonjour,

limiter le nombre de caractères à 255 ...



"Danny" <Danny@discussions.microsoft.com> a écrit dans le message de news:
F9A2CCCF-8468-4134-BFE3-E66D01DA4131@microsoft.com...

Bonjour !

J'ai un petit problème...
J'ai un texte dans une cellule qui ne s'affiche pas complètement lors de
la
méthode AUTOFIT. Ce texte a peut-etre entre 250-300 caractère.

Aussi, le format de cellule est a "Rnvoyé a la ligne automatiquement" mais
passé 11 lignes, il ne veut pas le faire pour le restant du texte ???

Y-a-t-il un moyen de remédie a ca ?

Merci pour tous !!
Danny.

Bonsour® Danny
il ne peut y avoir plus de 1024 caractères visibles dans une cellule !!!!

en consultant l'aide :
Limites et spécifications Excel
Spécifications relatives aux feuilles de calcul et aux classeurs

Largeur de colonne Maxi 255 caractères
Contenu des cellules (texte)
32 767 caractères.
Affichage de 1 024 uniquement dans une cellule et 32 767 dans la barre de
formule.


Sub Demonstration()
Range("B1").Select
ActiveCell.FormulaR1C1 = "=REPT(""0123456789"",2000)"
Range("B1").Select
'-------- largeur 64 caractères en police standard
Selection.ColumnWidth = 64
'--------renvoi à la ligne automatique
Selection.WrapText = True
'-------ajustement hauteur de lignes
Selection.Rows.AutoFit
Selection.Copy
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("B2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=LEN(R[-1]C)"
Range("B4").Select
ActiveCell.FormulaR1C1 = "=LEN(R[-1]C)"
Range("B3").Select
End Sub


--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042