Comment utiliser la fonction QBColor dans VBA ?

La fonction `QBColor` en VBA (Visual Basic for Applications) est utilisée pour convertir un nombre représentant une couleur de la palette des couleurs de QuickBASIC en une valeur de couleur qui peut être utilisée dans VBA. Cette fonction prend un entier comme argument et renvoie un code couleur RGB. Les entiers valides vont de 0 à 15, chacun correspondant à une couleur prédéfinie.

Voici comment vous pouvez utiliser la fonction `QBColor` :

Sub UtiliserQBColor()
    Dim indexColor As Integer
    Dim couleur as Long
    
    ' Exemple d'utilisation de QBColor
    indexColor = 1 ' Représente la couleur bleue dans la palette QBColor
    couleur = QBColor(indexColor)
    
    ' Utiliser la couleur dans un contexte, par exemple,
    ' changer la couleur de fond d'une cellule Excel
    Worksheets("Feuille1").Range("A1").Interior.Color = couleur
End Sub

Voici la liste des index de couleurs que vous pouvez utiliser avec `QBColor` et leurs significations :

0 = Noir
1 = Bleu
2 = Vert
3 = Cyan
4 = Rouge
5 = Magenta
6 = Jaune
7 = Blanc
8 = Gris
9 = Bleu clair
10 = Vert clair
11 = Cyan clair
12 = Rouge clair
13 = Magenta clair
14 = Jaune clair
15 = Blanc brillant

Assurez-vous que l’index que vous utilisez est dans la plage de 0 à 15 pour éviter des erreurs. Cette fonction est particulièrement utile si vous migrez ou réutilisez du code QuickBASIC dans un environnement VBA.

facebooklinkedin