if Retour de ligne Auto then

QQ1 dit:

QQchaussecommeza
'----------
If [a2].WrapText = True Then
MsgBox "QQ dit oui"
else
MsgBox "QQ dit non"
endif
'-----------
Salutations
JJ

"Michael" <bas_michael@yahoo.fr> a écrit dans le message de
news:uMDqp24gFHA.1416@TK2MSFTNGP09.phx.gbl...

Bonjour !
QQ1 sait-il comment faire en VBA pour excel :

if retour a la ligne auto dans une cellule de la feuille
then reduire la taille des caracteres de cette cellule
until tout le texte loge

j'espere etre clair car je suis débutant et pourtant je cherche.

merci a celui (ou celle ?) qui pourra m'aider !!!

Merci c sympa ça marche a la perfection !

QQ1 dit Merci encore

Merci c sympa ça marche a la perfection !

Glupss ! Ca ajuste la taille des caractères comme tu le demandais ?
" ...reduire la taille des caracteres de cette cellule
until tout le texte loge..."

AV ??

non en fait c pas bon car il detecte seulement si l'option est cochée mais
pas si le texte a vraiment été mis a la ligne

pour la taille des caracteres c bon je sais faire mais on m'a parlé de
detecter chr10 ou chr13 dans une chaine mais ça je sais pas faire merci

Bonsour®
Michael wrote:

pour la taille des caracteres c bon je sais faire mais on m'a parlé de
detecter chr10 ou chr13 dans une chaine mais ça je sais pas faire

=SUBSTITUE(SUBSTITUE(A1;CAR(13);CAR(32));CAR(10);CAR(32))
@+

g beau essayer impossible

je suis débutant mais ta fonction sert a tester si on peut enlever les
caracteres en question ?

g de plus une erreur de syntaxe

Merci de m'aider

Bonsour®
Michael wrote:

g beau essayer impossible

Sub ajuste()
For Each cellule In ActiveSheet.Range("A1:A20")
cellule.Value = Application.Substitute(Application.Substitute(cellule,
Chr(10), Chr(32)), Chr(13), Chr(32))
cellule.WrapText = False
Next
ActiveSheet.Range("A1:A20").Columns.AutoFit
End Sub

pour la taille des caractères tu sais faire ... ;o)))

@+