[RESOLU] Obtenir code couleur RGB ou Hexadecimal

Calvus

XLDnaute Barbatruc

• 12 Février 2018

• #2

Bonjour CP4,

Si je comprends bien, tu as déjà la couleur que tu souhaites dans une des cellules.

Dans ce cas, tu n'as qu'à l'extraire par vba :

VB:

Range("A2")=Range("A1").Interior.Color

En espérant t'avoir aidé.

A+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Février 2018

• #3

Bonjour.
Cette fourniture vous donnera plusieurs moyens de trouver le code de couleur d'une cellule, par capture ou en l'appliquant à un échantillon d'une étude.

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 12 Février 2018

• #4

Salut, à voir : Les couleurs en VBA Excel: Les équivalences Hex-Long-RGB

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 12 Février 2018

• #5

Calvus😉, Dranreb😉, Kiki29😉, Merci beaucoup.

@Calvus : Ce n'est pas ce que je cherche. C'est trouvé le bon code de la couleur. La fonction me renvoie 47, mais quand j'utilise ce code la couleur est différente (pas la même nuance).

@Dranreb et @kiki29 : Je consulte et reviens aux nouvelles.

@+😉

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 12 Février 2018

• #6

Bonjour à tous,

un petit exemple simple

Code:

'exemple avec couleur fond en (A1)
Sub Couleur()
Dim CoulLong&, CoulIdx%, R&, V&, B&

CoulLong = Range("A1").Interior.Color
CoulIdx = Range("A1").Interior.ColorIndex
MsgBox CoulLong & vbLf & CoulIdx

'extraire RVB
R = Int(CoulLong Mod 256)
V = Int((CoulLong Mod 65536) / 256)
B = Int(CoulLong / 65536)
MsgBox "Rouge= " & R & vbLf & "Vert= " & V & vbLf & "Bleu= " & B

'inversément RVB en Long
CoulLong = R + (V * 256) + (B * 65536)
MsgBox CoulLong

End Sub

 

Dernière édition: 12 Février 2018

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 12 Février 2018

• #7

Dranreb à dit:

Bonjour.
Cette fourniture vous donnera plusieurs moyens de trouver le code de couleur d'une cellule, par capture ou en l'appliquant à un échantillon d'une étude.

Cliquez pour agrandir...

Bravo, très très beau et très très bon travail.
Mais, c'est trop ardu pour mon niveau.
Je voulais juste une fonction qui me retourne le code exact de la couleur d'une cellule.
N'ayant pas les compétences et connaissances pour exploiter pour le moment tes codes.
En effet, sur le fichier les codes des couleurs sont données.
Etant daltonien, il m'est difficile de discerner certaines couleurs et nuances.
C'est pour cette raison que je voudrais une fonction qui me retourne le code plutôt en RGB (après avoir consulter ton fichier).

En tout cas, je te dis chapeau pour le boulot. C'est du lourd.😉

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 12 Février 2018

• #8

re

as-tu vu ma macro ? au message précédent post#6
elle répond exactement à tes besoins !

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Février 2018

• #9

VB:

Function CodeCoul(ByVal R As Range) As String
CodeCoul = "&H" & Right$("00000" & Hex(R.Interior.Color, 6) & "&"
End Sub

Attention elle ne sera pas réévaluée si on la change.

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 12 Février 2018

• #10

kiki29 à dit:

Salut, à voir : Les couleurs en VBA Excel: Les équivalences Hex-Long-RGB

Cliquez pour agrandir...

Merci beaucoup, c'est intéressant. Le fichier est super bien fait. Je dois mettre l'userform et tous les codes sur mon fichier pour que pointeur puisse m'afficher le code.

Merci beaucoup, j'ai téléchargé le fichier qui me sera utile pour mes prochaine réalisation.

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 12 Février 2018

• #11

Roland_M à dit:

re

as-tu vu ma macro ? au message précédent post#6
elle répond exactement à tes besoins !

Cliquez pour agrandir...

🙂 J'ai bien vu ton premier post, je testais et prioritairement je répondais à Kiki29.

J'ai fait un petit fichier, dans lequel j'ai utilisé ton code. J'ai sûrement fait une gaffe car je n'arrive pas à reproduire la couleur. Merci de voir le fichier joint.

 

Pièces jointes

• EssaiCouleur.xlsm

  15.7 KB · Affichages: 113

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 12 Février 2018

• #12

Dranreb à dit:

VB:

Function CodeCoul(ByVal R As Range) As String
CodeCoul = "&H" & Right$("00000" & Hex(R.Interior.Color, 6) & "&"
End Sub

Attention elle ne sera pas réévaluée si on la change.

Cliquez pour agrandir...

Merci Dranreb, mais comment utiliser cette fonction d'autant plus que la ligne de code est non conforme (couleur)
Merci quand même.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Février 2018

• #13

Ah, pas évident cette affaire là.

VB:

Sub Couleurs()
Dim TSe As TableStyle, CoulLong&, CoulIdx%, R&, V&, B&
Set TSe = ActiveSheet.ListObjects(1).TableStyle
CoulLong = TSe.TableStyleElements(xlHeaderRow).Interior.Color
Range("m1") = CoulLong
Range("n1").Interior.Color = CoulLong
Range("n2").Interior.ColorIndex = -4142
R = Int(CoulLong Mod 256)
V = Int((CoulLong Mod 65536) / 256)
B = Int(CoulLong / 65536)
Range("m4") = R
Range("m5") = V
Range("m6") = B
Range("m7") = "&H" & Right$("00000" & Hex(CoulLong), 6) & "&"
End Sub

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 12 Février 2018

• #14

Un très merci Dranreb, c'est parfait, impeccable.😎😎😎😀😀😀🙂🙂
Tu me sauves, je n'aurai plus à embêter mon entourage.

Bonne soirée à vous.

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 12 Février 2018

• #15

Bonsour®

cp4 à dit:

Bonjour,🙂

J'ai trouvé qu'il fallait utiliser le code Hexadécimal ou RGB, mais je n'ai pas trouvé de fonction dans ce sens.

En vous remerciant.

Cliquez pour agrandir...

voir également ceci :

voir plus...

 

Pièces jointes

• Rgb(2).xlsm

  23.2 KB · Affichages: 122
• GD_CouleursV0c 12-2017.xlsm

  3.2 MB · Affichages: 123

Dernière édition: 13 Février 2018

Vote positif 0 Vote négatif