[VBA] récupérer la couleur RGB d'une police dans un cellule

Modeste geedee

XLDnaute Barbatruc

• 20 Octobre 2015

• #2

Re : [VBA] récupérer la couleur RGB d'une police dans un cellule

Bonsour®

heu... ??
simplement :
MsgBox Activecell.Font.Color

 

Vote positif 0 Vote négatif

F

F22Raptor

XLDnaute Impliqué

• 20 Octobre 2015

• #3

Re : [VBA] récupérer la couleur RGB d'une police dans un cellule

J'obtiens un nombre du genre 16777215 pour la couleur blanche.
Il doit y avoir une correspondance pour obtenir XXX,YYY,ZZZ en RGB, mais je ne trouve pas

 

Vote positif 0 Vote négatif

F

F22Raptor

XLDnaute Impliqué

• 20 Octobre 2015

• #4

Re : [VBA] récupérer la couleur RGB d'une police dans un cellule

trouvé ! Il faut d'abord convertir en code hexadécimal :

Dim CouleurHexa, r, g, b
CouleurHexa = Hex(ActiveCell.Font.Color)


r = Val("&H" & Mid(CouleurHexa, 1, 2))

g = Val("&H" & Mid(CouleurHexa, 3, 2))

b = Val("&H" & Mid(CouleurHexa, 5, 2))

MsgBox r & vbTab & g & vbTab & b

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Octobre 2015

• #5

Re : [VBA] récupérer la couleur RGB d'une police dans un cellule

Bonjour,

une autre approche, code de MichelXLD

Code:

Dim Couleur As Long, Rouge As Integer, Vert As Integer, Bleu As Integer
Couleur = ActiveCell.Font.Color
Rouge = Int(Couleur Mod 256)
Vert = Int((Couleur Mod 65536) / 256)
Bleu = Int(Couleur / 65536)

bon après midi
@+

 

Vote positif 0 Vote négatif

F

F22Raptor

XLDnaute Impliqué

• 20 Octobre 2015

• #6

Re : [VBA] récupérer la couleur RGB d'une police dans un cellule

Merci Pierrot : ça a l'air de mieux marcher que mon truc, qui inverse les RGB dans certains cas, semble t-il ...

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 20 Octobre 2015

• #7

Re : [VBA] récupérer la couleur RGB d'une police dans un cellule

F22Raptor à dit:

trouvé ! Il faut d'abord convertir en code hexadécimal :

Dim CouleurHexa, r, g, b
CouleurHexa = Hex(ActiveCell.Font.Color)

Cliquez pour agrandir...

Plutôt
r = Val("&H" & Mid(CouleurHexa, 5, 2))
g = Val("&H" & Mid(CouleurHexa, 3, 2))
b = Val("&H" & Mid(CouleurHexa, 1, 2))

MsgBox r & vbTab & g & vbTab & b

Car la pondération hexadécimale met les poids faibles à droite (Rouge)
les poids lourds à gauche (bleu)

 

Vote positif 0 Vote négatif