Comment changer la couleur de la police dans VBA (3 méthodes)

Vous pouvez utiliser l’une des méthodes suivantes pour modifier la couleur de la police dans Excel à l’aide de VBA :

Méthode 1 : modifier la couleur de la police à l’aide des noms de couleurs VBA

Sub ChangeColor()
Range("A1").Font.Color = vbRed
End Sub

Cette macro particulière changera la couleur de la police dans la cellule A1 en rouge.

Méthode 2 : modifier la couleur de la police à l’aide des valeurs RVB

Sub ChangeColor()
Range("A1").Font.Color = RGB(255,0,0)
End Sub

Cette macro particulière changera la couleur de police dans la cellule A1 en la couleur qui correspond aux valeurs RVB (rouge vert bleu) de (255,0,0) qui se trouve être rouge.

Méthode 3 : modifier la couleur de la police à l’aide de codes de couleur hexadécimaux

Sub ChangeColor()
Range("A1").Font.Color = &H0000FF
End Sub

Cette macro particulière changera la couleur de la police dans la cellule A1 en la couleur qui correspond au code couleur hexadécimal de #FF0000.

Remarque n°1 : vous devez taper &H devant le code de couleur hexadécimal que vous souhaitez utiliser pour que VBA reconnaisse ait comme un code de couleur hexadécimal.

Remarque n°2 : Les codes de couleur hexadécimaux sont généralement représentés par six caractères dans lesquels les deux premiers représentent le code du rouge, les deux du milieu représentent le code du vert et les deux derniers représentent le code du bleu.

Cependant, Excel échange les deux premières valeurs contre les deux dernières valeurs. Ainsi, le code couleur hexadécimal du rouge est FF0000 mais il faut plutôt taper 0000FF.

Les exemples suivants montrent comment utiliser chaque méthode dans la pratique.

Exemple 1 : modifier la couleur de la police à l’aide des noms de couleurs VBA

Supposons que nous ayons du texte dans la cellule A1 dont la couleur de police est actuellement noire :

Nous pouvons créer la macro suivante pour changer la couleur de la police dans la cellule A1 en rouge :

Sub ChangeColor()
Range("A1").Font.Color = vbRed
End Sub

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

Notez que la couleur de la police dans la cellule A1 est désormais rouge.

Exemple 2 : modifier la couleur de la police à l’aide des valeurs RVB

Supposons que nous ayons des chaînes de texte dans la plage A1:A5 dont la couleur de police est actuellement noire :

Nous pouvons créer la macro suivante pour changer la couleur de la police dans les cellules A1:A5 en rouge :

Sub ChangeColor()
Range("A1:A5").Font.Color = RGB(255,0,0)
End Sub

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

Notez que la couleur de police dans chacune des cellules de la plage A1:A5 est désormais rouge.

Exemple 3 : Modifier la couleur de la police à l’aide de codes de couleur hexadécimaux

Supposons encore une fois que nous ayons des chaînes de texte dans la plage A1:A5 dont la couleur de police est actuellement noire :

Nous pouvons créer la macro suivante pour changer la couleur de la police dans les cellules A1:A5 en rouge :

Sub ChangeColor()
Range("A1:A5").Font.Color = &H0000FF
End Sub

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

Notez que la couleur de police dans chacune des cellules de la plage A1:A5 est désormais rouge.

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

Ressources additionnelles

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

VBA : Comment supprimer les espaces d’une chaîne
VBA : Comment remplacer des caractères dans une chaîne
VBA : Comment insérer une ligne avec formatage