Oscar a besoin de déterminer la police et la taille de police appliquées au texte dans une cellule. Par exemple, si le texte de la cellule A1 est en Arial 12 pt, il aimerait une fonction qui puisse être utilisée pour renvoyer «Arial» dans la cellule B1 et 12 dans la cellule C1.

Il n’y a rien de intégré à Excel qui permette de saisir ces informations de mise en forme. Vous pouvez cependant créer une macro très simple qui fera l’affaire. La macro suivante prend, comme arguments, une référence de cellule et éventuellement un indicateur des données que vous souhaitez renvoyer.

Function FontInfo1(Rn As Range, Optional iType As Integer)

Application.Volatile     If iType = 2 Then         FontInfo1 = Rn.Font.Size     Else         FontInfo1 = Rn.Font.Name     Endif End Function

Vous utilisez la fonction en utilisant une formule comme celle-ci dans une cellule:

=FontInfo1(A1,1)

Le deuxième paramètre (dans ce cas 1) signifie que vous voulez le nom de la police.

Si vous modifiez le deuxième paramètre sur 2, la taille de la police est renvoyée.

(En fait, vous pourriez avoir le deuxième paramètre être autre chose que 2 – ou le laisser entièrement désactivé – et il renvoie le nom de la police.)

Si vous souhaitez renvoyer les deux valeurs à la fois, vous pouvez appliquer un moyen moins connu de renvoyer des tableaux d’informations à partir d’une fonction définie par l’utilisateur. Essayez ce qui suit:

Function FontInfo2(c As Range) As Variant     Application.Volatile     FontInfo2 = Array(c.Font.Name, c.Font.Size)

End Function

Sélectionnez deux cellules adjacentes horizontalement (telles que C7: D7) et tapez la formule suivante:

=FontInfo(A1)

Étant donné que la fonction renvoie un tableau, vous devez terminer l’entrée de formule en appuyant sur Maj + Ctrl + Entrée. Le nom de la police apparaît dans la première cellule (C7) et la taille de la police apparaît dans la deuxième cellule (D7).

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (7139) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Determining_Font_Formatting [Détermination du formatage des polices].