XL 2021 Un BackColor selon un RAL connu

[DenisHen]

Bonjour à la communauté.
Je n'arrive pas à comprendre le BackColor d'un Label.
Dans un classeur, j'ai un onglet qui contient les couleurs RAL (216 couleur "normées") et j'aimerais, dans un UserForm, afficher cette couleur.
Je pensais à un Label "vide" et une couleur BlackColor qui correspondrait à ce RAL.
Petit exemple de l'onglet "RAL" :

RAL	RGB	HEX	CMYK	LRV	French
1000	205-186-136	#CDBA88	0-9-34-20	51.79	Beige vert
1001	208-176-132	#D0B084	0-15-37-18	48.09	Beige
1002	210-170-109	#D2AA6D	0-19-48-18	45.07	Jaune sable
1003	249-169-0	#F9A900	0-32-100-2	49.05	Jaune de sécurité
1004	228-158-0	#E49E00	0-31-100-11	42.13	Jaune or
1005	203-143-0	#CB8F00	0-30-100-20	34.15	Jaune miel

Je ne parviens pas à convertir une couleur pour mon Label dans mon UserForm.
Dans un ListBox, je séléctionne le RAL (ex "9010", c'est un blanc) et j'aimerais que le BackColor du Label (un petit rectangle dans l'UserForm) soit de cette couleur.
Quelqu'un aurait une astuce, un truc, un conseil ?
Et le top du top serait d'avoir le nom de la couleur en texte dans ce Label, mais avec une couleur controlée selon le BackColor, car noir sur fond noir, ou blanc sur fond blanc, mais c'est juste une option, je pourrais faire un Text à coté...
Bien à toi, la communauté.
Denis...

 

[job75]

Bonsoir DenisHen,

Voyez le fichier joint et cette macro dans l'UserForm :

Private Sub ListBox1_Click()
Dim s
s = Split(ListBox1.List(ListBox1.ListIndex, 1), "-")
Label1.BackColor = RGB(s(0), s(1), s(2))
End Sub

Mais vos couleurs RGB ne semblent pas correspondre aux couleurs "French".

A+

 

[TooFatBoy]

Bonjour,

Je ne parviens pas à convertir une couleur pour mon Label dans mon UserForm.

Il n'y a rien à convertir puisque tu sembles avoir le RGB de la couleur que tu veux afficher. 😉

 

[job75]

Bonjour le forum,

Une correspondance avec d'autres valeurs RGB :

http://www.pats.ch/formulaire/unites/unites11.aspx

A+

 

[Dranreb]

Bonjour.
Voir cette ressource.

Élaboration et utilisation de jeux de couleurs.

14 Septembre 2017

Tableaux de couleurs paramétrables en vue de mises en formes soignées.

• Dranreb
• angle teinte chaleur code couleur énergie force gaîté gamma hexa palette
• Divers

 

[DenisHen]

Bonjour à la communauté.
Et un grand merci à vous pour vos réponses.
Je ne connaissais pas "RVB(a,b,c)", je découvre encore un nouveau truc grâce à vous et à Excel Download.
Que dire de plus, si ce n'est : encore merci à vous.
Denis (très content).

 

[GGI]

Bonjour job75
Dans la listbox le rowsource = Plage
Dans la feuil1 si je rajoute une ligne elle est automatique dans le listbox et en jaune
Merci pour vos explications

 

[job75]

La formule qui définit le nom plage avec DECALER est dynamique, c'est classique.

 

[job75]

J'ai vérifié les valeurs de la colonne HEX, pour pouvoir les utiliser il faut remplacer :

#CDBA88 par 88BACD
#D0B084 par 84B0D0
#D2AA6D par 6DAAD2
#F9A900 par 00A9F9
#E49E00 par 009EE4
#CB8F00 par 008FCB

La macro pour traiter 3 colonnes :

Private Sub ListBox1_Click()
Dim s
s = Split(ListBox1.List(ListBox1.ListIndex, 1), "-")
Label1.BackColor = RGB(s(0), s(1), s(2))
Label2.BackColor = "&H" & ListBox1.List(ListBox1.ListIndex, 2)
End Sub

 

[GGI]

Re Bonjour job75, merci pour votre réponse, je suis débutant vous pouvez m'expliqué un peu car je ne comprends pas comment j'utilise cette fonction decaler
Merci d'avance

 

[job75]

Bonjour GGI,

Menu Formules => Gestionnaire de noms et voyez le nom Plage.

La formule qui le définit :

=DECALER(Feuil1!$A$1;1;;NBVAL(Feuil1!$A:$A)-1;3)

Voyez l'aide Excel sur la fonction DECALER et ses arguments.

A+

 

[GGI]

Merci job75, Super