VBA Excel - Codes couleurs Long

Septembre 2016



Codes couleurs

Les codes couleurs (nommés VBA ci-dessous) servent aux propriétés Interior.ColorIndex, les codes couleurs version Long servent aux propriétés Interior.Color.

Tout d'abord, une image recensant ces codes couleurs.



Cette image est une copie d'écran de ce classeur :

http://cjoint.com/?DIqlTjoC61G

Fonction de conversion

Cette fonction converti les valeurs des couleurs VBA (de 1 à 56) en leur code version Long :

Function CouversionCouleurLong(Couleur As Integer) As Long
Dim CouleursLng()
CouleursLng = Array(0, 16777215, 255, 65280, 16711680, 65535, 16711935, 16776960, 128, 32768, 8388608, 32896, 8388736, 8421376, _
12632256, 8421504, 16751001, 6697881, 13434879, 16777164, 6684774, 8421631, 13395456, 16764108, 8388608, 16711935, 65535, _
16776960, 8388736, 128, 8421376, 16711680, 16763904, 16777164, 13434828, 10092543, 16764057, 13408767, 16751052, 10079487, _
16737843, 13421619, 52377, 52479, 39423, 26367, 10053222, 9868950, 6697728, 6723891, 13056, 13107, 13209, 6697881, 10040115, 3355443, 16777215)
'En cas d'erreur colorie en noir
If Couleur < 0 Or Couleur > 56 Then CouversionCouleurLong = 0
CouversionCouleurLong = CouleursLng(Couleur)
End Function

A voir également :

Ce document intitulé «  VBA Excel - Codes couleurs Long  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.