XL 2016 Réduire la taille de la police pendant la saisie

monsieurmarcadet

XLDnaute Junior
Bonjour !

Voilà, pour une fois je crois que tout est dans le titre ou presque. Je cherche une fonction VBA qui réduirait de 3 points la taille de la police de la cellule dès qu'on dépasse 50 caractères. Idéalement pendant la saisie même, mais si c'est après avoir changer de cellule, ça me va aussi !

Merci !!
 

zebanx

XLDnaute Accro
Bonjour monsieurmarcadet, le forum

Un essai.
Il y a deux macros.
L'une modifie dans une plage donnée la taille de la police (celle dans le module) et l'autre appelle cette macro si des éléments sont modifiés sur le target.range (code sur la feuille dans VBE ALT +F11).

Ca vous donne une idée de piste. A vous de manipulez les bornes bien sûr pour que les modifications se fassent automatiquement.

Bonne journée
zebanx
 

Pièces jointes

  • classeur 1_font.size.xlsm
    17.3 KB · Affichages: 6

job75

XLDnaute Barbatruc
Bonjour monsieurmarcadet, zebanx,

A priori, sans se casser la tête, on peut mettre dans ThisWorkbook :
VB:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim TaillePoliceNormale%
TaillePoliceNormale = 11 'à adapter
Set Target = Intersect(Target, Sh.UsedRange)
If Target Is Nothing Then Exit Sub
For Each Target In Target 'si entrées multiples (copier-coller)
    Target.Font.Size = TaillePoliceNormale - IIf(Len(Target) > 50, 3, 0)
Next
End Sub
A+
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof