Liste des codes d'index des couleurs VBA
Lorsque vous utilisez VBA pour coder le Colorindex (ou la couleur d'arrière-plan) d'une cellule, il est utile de savoir quel entier sera égal à quelle couleur. Vous trouverez ci-dessous une image de référence qui montre la couleur et répertorie son Colorindex respectif. alias Palette de couleurs VBA
Voici le code pour en créer un pour vous-même, ou ajoutez simplement cette page à vos favoris :
| 123456789101112131415 | Sous ColorRef()Dim x en tant qu'entierPour x = 1 à 56Si x < AlorsCells(x, 1).Interior.ColorIndex = xCellules (x, 2) = xAutreCellules (x - 28, 3).Interior.ColorIndex = xCellules (x - 28, 4) = xFin siSuivant xFin du sous-marin |
Exemples d'index de couleurs VBA
Définir la couleur d'arrière-plan de la cellule
| 1 | Range("A1").Intérieur.ColorIndex = 6 |
Définir la couleur de la police de la cellule
| 1 | Range ("A1").Font.ColorIndex = 5 |
Définir la couleur des bordures de cellule
| 1 | Range("A1").Borders.ColorIndex = 5 |
Obtenir l'index de couleur d'arrière-plan de la cellule
| 123 | Dim col comme entiercol = Range("A1").Intérieur.ColorIndex |
Définir une couleur d'arrière-plan de cellule sur la couleur d'une autre cellule
| 1 | Range("A1").Intérieur.ColorIndex = Range("B1").Intérieur.ColorIndex |
Propriété de couleur VBA
Au lieu d'utiliser la propriété ColorIndex d'Excel/VBA, vous pouvez utiliser la propriété Color. La propriété Color accepte deux types d'entrée :
- vbCouleur
- Couleurs RVB
Nous en discuterons ci-dessous :
Couleur VB
VB Color est le moyen le plus simple de définir les couleurs dans VBA. Cependant, c'est aussi le moins flexible. Pour définir un code couleur à l'aide de vbColor, utilisez le tableau ci-dessous :
Cependant, comme vous pouvez le voir sur le tableau, vos options sont extrêmement limitées.
Définir la couleur d'arrière-plan de la cellule
| 1 | Range("A1").Intérieur.Couleur = vbJaune |
Définir la couleur de la police de la cellule
| 1 | Range ("A1").Font.Color = vbBlue |
Définir la couleur des bordures des cellules
| 1 | Range ("A1").Borders.Color = vbRed |
Définir une couleur d'arrière-plan de cellule sur la couleur d'une autre cellule
| 1 | Plage("A1").Intérieur.Couleur = Plage("B1").Intérieur.Couleur |
Couleurs RVB
RVB signifie Rouge Vert Bleu. Ce sont les trois couleurs primaires qui peuvent être combinées pour produire n'importe quelle autre couleur. Lors de la saisie des couleurs au format RVB, saisissez une valeur comprise entre 0 et 255 pour chaque code de couleur.
Voici un exemple :
| 1 | Plage("A1").Intérieur.Couleur = RVB(255,255,0) |
Ci-dessus, nous avons défini Rouge = 255 (valeur max), Vert = 255 (valeur max) et Bleu = 0 (valeur min). Cela définit la couleur d'arrière-plan de la cellule sur Jaune.
Au lieu de cela, nous pouvons définir la couleur de la police de la cellule sur violet :
| 1 | Plage("A1").Intérieur.Couleur = RVB(128,0,128) |
Il existe de nombreux outils en ligne pour trouver le code RVB de la couleur souhaitée (en voici un).
Liste des codes ColorIndex et couleurs RVB dans Access VBA
Access utilise des formulaires pour afficher les données. Vous pouvez utiliser les codes ColorIndex pour modifier par programme la couleur d'arrière-plan et la couleur de premier plan des objets dans vos formulaires Access.
| 12345 | Sous-cmdSave_Click () privé'changer la couleur d'arrière-plan du bouton d'enregistrement lorsque l'enregistrement est enregistré.DoCmd.RunCommand acCmdSaveRecordcmdSave.BackColor = vbGreenFin du sous-marin |
