Comment définir la taille de la police à l’aide de VBA (avec exemple)

Vous pouvez utiliser la propriété Font.Size dans VBA pour obtenir et définir la taille de police de cellules spécifiques dans Excel.

Par exemple, vous pouvez utiliser la macro suivante pour créer une boîte de message affichant la taille de police actuelle de la cellule A1 :

Sub GetFontSize()
MsgBox Range("A1").Font.Size
End Sub

Ou vous pouvez créer la macro suivante pour définir la taille de police de la cellule A1 sur 20 :

Sub SetFontSize()
Range("A1").Font.Size = 20
End Sub

Ou vous pouvez créer la macro suivante pour que la taille de police dans chaque cellule de la plage A1:C1 soit égale à 20 :

Sub SetFontSize()
Range("A1:C1").Font.Size = 20
End Sub

Les exemples suivants montrent comment obtenir et définir la taille de la police à l’aide de VBA avec l’ensemble de données suivant dans Excel :

Exemple 1 : obtenir la taille de la police à l’aide de VBA

Nous pouvons créer la macro suivante pour créer une boîte de message qui affiche la taille de police actuelle de la cellule A1 :

Sub GetFontSize()
MsgBox Range("A1").Font.Size
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

La boîte de message nous indique que la cellule A1 a actuellement une taille de police de 11 .

Il s’agit de la taille de police par défaut dans Excel.

Exemple 2 : définir la taille de la police d’une cellule spécifique à l’aide de VBA

Nous pouvons créer la macro suivante pour définir la taille de police de la cellule A1 sur 20 :

Sub SetFontSize()
Range("A1").Font.Size = 20
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Nous pouvons voir que la taille de police de la cellule A1 a été modifiée à 20 tandis que la taille de police de toutes les autres cellules est restée inchangée.

Exemple 3 : définir la taille de police d’une plage de cellules à l’aide de VBA

Nous pouvons créer la macro suivante pour définir la taille de police de chaque cellule de la plage A1:C1 sur 20 :

Sub SetFontSize()
Range("A1:C1").Font.Size = 20
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Nous pouvons voir que la taille de police de chaque cellule de la plage A1: C1 a été modifiée à 20 tandis que la taille de police de toutes les autres cellules est restée inchangée.

Remarque : Vous pouvez trouver la documentation complète de la propriété VBA Font.Size ici .

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

VBA : Comment changer la couleur de la police
VBA : Comment mettre une police en gras
VBA : Comment remplacer des caractères dans une chaîne