Médiaforma

VBA Excel – Travailler avec des couleurs

Print Friendly, PDF & Email

En VBA Excel, les couleurs peuvent être choisies dans un panel de 56 couleurs prédéfinies ou créées en mélangeant une certaine quantité des trois couleurs primaires : rouge, vert et bleu.

Utilisation des couleurs prédéfinies

Les 56 couleurs de base sont représentées dans cette copie d’écran :

Pour affecter une de ces couleurs au texte ou à l’arrière-plan de la sélection ou de la cellule active, vous utiliserez ces expressions :

Range("A10").Select 'Sélection de la cellule A10

Selection.Interior.ColorIndex = 4 'Arrière-plan de couleur 4

Selection.Font.ColorIndex = 26 'Police de couleur 26

Range("A12").Activate 'Activation de la cellule A12

ActiveCell.Interior.ColorIndex = 4 'Arrière-plan de couleur 4

ActiveCell.Font.ColorIndex = 26 'Police de couleur 26

Utilisation des couleurs RGB

La couleur du texte ou de l’arrière-plan peut être définie avec la fonction RGB() :

RGB(rouge, vert, bleu)

rouge, vert et bleu sont la quantité de rouge de vert et de bleu qui constituent la couleur. Ces trois valeurs doivent être comprises entre 0 et 255. La valeur 0 signifie que la couleur est absente. La valeur 255 signifie que la couleur est maximale.

Etant donné que chacune de ces composantes peut prendre 256 valeurs, la fonction RGB() donne accès à 256*256*256 couleurs, soit 16 777 216 couleurs !

Voici quelques exemples :

Valeur Couleur
RGB(0,0,0) Noir
RGB(255,255,255) Blanc
RGB(255,0,0) Rouge
RGB(0,255,0) Vert
RGB(0,0,255) Bleu

Comment feriez-vous pour définir un gris ?

Pour cela, vous devez prendre la même quantité pour chaque couleur primaire.

Vous pourrez ainsi définir 256 niveaux de gris, depuis le gris très foncé (noir) défini par RGB(0,0,0) au gris très clair (blanc) défini par RGB(255,255,255). Vous définirez par exemple un gris foncé avec RGB(50,50,50) et un gris clair avec RGB(200,200,200).

Pour affecter une couleur de texte ou d’arrière-plan à la sélection ou à la cellule active, vous utiliserez des instructions de ce type :

Range("A10").Select 'Sélection de la cellule A10

Selection.Interior.Color = RGB(255,0,0) 'Arrière-plan de couleur rouge

Selection.Font.Color = RGB(0,255,0) 'Police de couleur verte

Range("A12").Activate 'Activation de la cellule A12

ActiveCell.Interior.Color = RGB(255,0,0) 'Arrière-plan de couleur rouge

ActiveCell.Font.Color = RGB(0,255,0) 'Police de couleur verte
Vous avez aimé cet article ? Partagez-le avec vos réseaux...
 
Comments

No comments yet.