Modifier le taille de la police

[chris34500]

Bonjour,

Jai une cellule de largeur et hauteur fixe et j'y copie en VBA le texte d'une autre cellule, texte de longueur variable.
Est-il possible de modifier en VBA la taille de la police en fonction de la longueur du texte pour que celui-ci entre entièrement dans la cellule?
Merci

[spileo]

Bonsoir,
c'est sûrement possible mais peut être qu'un Autofit serait plus simple?

Code :

1
2
 
FeuilleDeDestination.Range(LaCelluleCopiee.Address).EntireColumn.Autofit

ou

Code :

1
2
 
FeuilleDeDestination.Range(LaCelluleCopiee.Address).ShrinkToFit = True

A+

[chris34500]

Ca ne marche pas parce que Autofit ajuste bien la taille de la police mais sur une ligne seulement (si le texte fait 60 carateres, il va me donner une taille de 8 , alors qu'une taille de 24 sur 4 lignes remplirai la cellule).

[tangjuncn]

Code :

1
2
3
 
Cells.Select
Cells.EntireColumn.AutoFit

Ceci te permet d'ajuster la feuille entière,non?

[chris34500]

Merci, mais ca ne modifie pas la taille de la police

[tangjuncn]

Bon, si tu insistes,
tu peux tjrs faire

Code :

Cells.Font.Size=machin machin

ça va marcher pr modifier ta cellule,non?

[chris34500]

Le texte a ecrire dans la cellule proviens d'une autre feuille et n'est pas de longueur égale a chaque fois. Le but est que si j'ai par exemple "FIN" à ecrire la police soit de 140 et que si j'ai "CE TEXTE EST DE LONGUEUR VARIABLE ET PEUT ETRE PLUS GRAND" la police soit de 20.

[tangjuncn]

ben, si tu connais la longeur de String avec la fonction "Len"
tu peux faire un

Code :

1
2
3
 
cells(i,j).value= machin
cells(i,j).font.size=len(machin)

ou tu créés toi même une façon de déterminer la police

[chris34500]

J'ai testé avec cette formule ca marche dans la plupart des cas:

Code :

1
2
cells(i,j).value= machin
cells(i,j).font.size=400/len(machin)+40

[tangjuncn]

Envoyé par chris34500

J'ai testé avec cette formule ca marche dans la plupart des cas:

cells(i,j).value= machin
cells(i,j).font.size=400/len(machin)+40

il y a des case qu'il guele?