Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells.Font.Size=machin machin

ça va marcher pr modifier ta cellule,non?