dionys0s
XLDnaute Impliqué
Bonjour le forum,
je me suis intéressé récemment aux couleurs en VBA pour dégoter du code permettant de calculer les nuances de rouge, vert et bleu d'une couleur Long. J'ai trouvé ce qu'il faut, et même plusieurs méthodes. Mes questions portent sur les différentes méthodes.
Voici les deux méthodes trouvées :
Autant je pige les formules de la première méthode, autant je ne comprends pas celles de la deuxième méthode. Quelqu'un saurait peut-être m'expliquer ? Je ne comprends pas en quoi "Color Mod 256" est équivalent à "Color And 255" (et pareil pour Green et Blue). Comment influe le "And" entre deux entiers ? Comment influerait le "Or" ? le "Xor" ?
D'avance merci pour vos réponses.
dionys0s
je me suis intéressé récemment aux couleurs en VBA pour dégoter du code permettant de calculer les nuances de rouge, vert et bleu d'une couleur Long. J'ai trouvé ce qu'il faut, et même plusieurs méthodes. Mes questions portent sur les différentes méthodes.
Voici les deux méthodes trouvées :
VB:
Public Function Red1(ByVal Color As Long) As Long: Red1 = Color Mod 256: End Function
Public Function Green1(ByVal Color As Long) As Long: Green1 = Color \ 256 Mod 256: End Function
Public Function Blue1(ByVal Color As Long) As Long: Blue1 = Color \ 65536 Mod 256: End Function
Public Function Red2(ByVal Color As Long) As Long: Red2 = Color And 255: End Function
Public Function Green2(ByVal Color As Long) As Long: Green2 = Color \ 256 And 255: End Function
Public Function Blue2(ByVal Color As Long) As Long: Blue2 = Color \ 65536 And 255: End Function
Autant je pige les formules de la première méthode, autant je ne comprends pas celles de la deuxième méthode. Quelqu'un saurait peut-être m'expliquer ? Je ne comprends pas en quoi "Color Mod 256" est équivalent à "Color And 255" (et pareil pour Green et Blue). Comment influe le "And" entre deux entiers ? Comment influerait le "Or" ? le "Xor" ?
D'avance merci pour vos réponses.
dionys0s