J'ai une cellule B17 (cellule jointe B17:K17) qui doit contenir des noms.
Parfois ceux-ci excèdent la longueur de la cellule et je souhaiterais que le
texte en entier apparaisse dans le cellule.
J'ai formaté la cellule en cochant "wraptext". De plus, j'ai une instruction
VBA qui va comme suit:
With ActiveSheet
[b17].WrapText = True
Rows("17:17").EntireRow.AutoFit
End With
Rien n'y fait.... La ligne (cellule) ne s'ajuste pas...
Merci mais j'ai oublié de mentionner que la cellule ne pouvait être plus large horizontalement. Cependant, j'ai de la place verticalement, car le nom doit être visible dans une enveloppe à fenêtre...
Denys
bonsoir Denys,
peut-être Rows("17:17").EntireColumn.AutoFit
cordialement
Bonsoir Mononc'
Merci mais j'ai oublié de mentionner que la cellule ne pouvait être plus
large horizontalement. Cependant, j'ai de la place verticalement, car le nom
doit être visible dans une enveloppe à fenêtre...
Merci mais j'ai oublié de mentionner que la cellule ne pouvait être plus large horizontalement. Cependant, j'ai de la place verticalement, car le nom doit être visible dans une enveloppe à fenêtre...
