0
Merci

Quelques mots de remerciements seront grandement appréciés.

VBA Excel - Codes couleurs Long



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
0
Merci

Quelques mots de remerciements seront grandement appréciés.

Cet article est régulièrement mis à jour par des experts sous la
direction de Jean-François Pillou, fondateur de CommentCaMarche
et directeur délégué au développement numérique du groupe Figaro.

A voir également

Publié par . Dernière mise à jour le par pijaku.

Ce document intitulé «  VBA Excel - Codes couleurs Long  » issu de CommentCaMarche (https://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.

0 Commentaire