Discussion :

[juju05]

Bonjour,

Est-il possible sous excel d'ajuster la taille de la police en fonction de la taille de la cellule ? Je cherche à renseigner une cellule et à ce que la lecture soit le plus facilitée.

Merci d'avance.

Julien.

[eric4459]

Bonjour,
Essayes ceci:

Code :

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

1
2
3
4
5
Sub Police()
If Range("D" & i).Font.Size < Rows("i : i").RowHeight Then
Range("D" & i).Font.Size = Rows("i : i").RowHeight - 2
End If
End Sub

Eric

[Invité]

bonjour,
tu peux également imaginer que la police est égale à un %

Code :

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

Range("D1").Font.Size =11*( Range("D1").RowHeight/15)