Conversion couleur RGB en couleur Hexa

**DenisHen** · 27/03/2015, 08h39

Bonjour à tous,

Voici mon petit problème, j'ai une colonne (B) avec un numéro de couleur (de 0 à 255) et j'aimerai, en colonne C le code couleur en Hexadécimal de la couleur en colonne B...

J'ai déjà récupéré un bout de code qui me coloriait les cases de la colonne B de la couleur de la valeur couleur dans cette cellule...

En bref, en B45 j'ai 6 et la couleur de cette cellule se colorie en magenta. J'aimerai juste à coté (colonne C), ce même code couleur (ex : 6) mais en Hexadécimal..

J'ai déjà ce bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Sheets("Calques").Select
    Set Feuille = ThisWorkbook.Worksheets("CouleurRGB")
    For ligne = 2 To 250
        couleurC = Cells(ligne, 2)    'lecture valeur
        If couleurC <> "" And couleurC <> "FIN" Then
            r = Feuille.Cells(couleurC, 2)
            g = Feuille.Cells(couleurC, 3)
            b = Feuille.Cells(couleurC, 4)
            Cells(ligne, 2).Interior.Color = RGB(r, g, b)
            Cells(ligne, 3).Value = "&H" & Hex(CLng(RGB(r, g, b)))
        Else
            Cells(ligne, 2).Interior.Color = RGB(255, 255, 255)
        End If
    Next ligne

Mais la ligne 10 ( Cells(ligne, 3).Value = "&H" & Hex(CLng(RGB(r, g, b)))" arrête la boucle "For ligne" et la reprend au début, ce qui fait que seule la première ligne est traité indéfiniment...

Et je ne comprend pas pourquoi...

Dans ma feuille "CouleurRGB", j'ai le code couleur (an colonne A) et les valeurs RGB dans les colonnes B, C et D qui représentent respectivement les valeurs RGB, exemple :

A	B	C	D
3	0	255	0
4	0	255	255
5	0	0	255
6	255	0	255
7	255	255	255

Merci pour l'aide éventuelle...

Denis...

**patricktoulon** · 27/03/2015, 09h22

Bonjour
c'est assez étonnant la conversions fait tout seul dans une variable
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
couleur = RGB(200, 155, 210)
    MsgBox "&H" & Hex(couleur)

edit pour faire simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sheets("Calques").Select
    Set Feuille = ThisWorkbook.Worksheets("CouleurRGB")
    For ligne = 2 To 250
        couleurC = Cells(ligne, 2)    'lecture valeur
        If couleurC <> "" And couleurC <> "FIN" Then
            r = Feuille.Cells(couleurC, 2)
            g = Feuille.Cells(couleurC, 3)
            b = Feuille.Cells(couleurC, 4)
            Cells(ligne, 2).Interior.Color = RGB(r, g, b)
            Cells(ligne, 3).Value = "&H" & Hex(Cells(ligne, 2).Interior.Color)' dans les parenthezes de hex il y a la couleur 
' si tu fait debug.print  Cells(ligne, 2).Interior.Color   ' tu aura la couleur en long  donc la conversion se fait tout seul 
        Else
            Cells(ligne, 2).Interior.Color = RGB(255, 255, 255)
        End If
    Next ligne
End Sub

mais a mon avis il y a un souci avec ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
r = Feuille.Cells(couleurC, 2)
            g = Feuille.Cells(couleurC, 3)
            b = Feuille.Cells(couleurC, 4)

la variable couleurC n'est peut être pas la bonne variable utilisée a mon avis couleurC etant la valeur de la cellule je crois et non pas son index de ligne

**Philippe Tulliez** · 27/03/2015, 09h24

Bonjour,
Ligne 6, 7 et 8 de ton code il faudrait déjà remplacer la variable CouleurC par la variable ligne
Attention que l'objet Cells qui n'est pas précédé par la variable objet Feuille lit et écrit dans la feuille nommée Calques

**DenisHen** · 27/03/2015, 10h10

Bonjour à tous, et merci pour vos réponses.

Au temps pour moi, cette macro est dans "Worksheet_Change", donc, dès que j’écris la couleur en Hexadécimale dans une cellule, il repart à zéro.

Normal. Mais je ne sait pas comment bloqué "Worksheet_Change" pendant ma macro... Je sais déjà que ce n'est pas "Application.ScreenUpdating = False" mais je vais cherché dans le forum... Je ne sais pas encore où, mais j'y vais...

Voici mon code au complet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Calques").Select
        Set Feuille = ThisWorkbook.Worksheets("CouleurRGB")
        For ligne = 2 To 250
            couleurC = Cells(ligne, 2)    'lecture valeur
            If couleurC <> "" And couleurC <> "FIN" Then
                r = Feuille.Cells(couleurC, 2)
                g = Feuille.Cells(couleurC, 3)
                b = Feuille.Cells(couleurC, 4)
                Cells(ligne, 2).Interior.Color = RGB(r, g, b)
                Cells(ligne, 3).Value = "&H" & Hex(RGB(r, g, b))
            Else
                Cells(ligne, 2).Interior.Color = RGB(255, 255, 255)
            End If
        Next ligne
End Sub

Et effectivement, les posts de Philippe Tulliez sont "illisibles" chez moi aussi...

Merci encore...

Denis...

PS : J'ai trouvé, c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents = False

Encore merci à ce forum qui est une mine pour le pauvre débutant que je suis...

Denis...

**patricktoulon** · 27/03/2015, 15h23

re

Alors en Français ce qui est dessous est encore faux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
couleurC = Cells(ligne, 2)    'lecture valeur
            If couleurC <> "" And couleurC <> "FIN" Then
                r = Feuille.Cells(couleurC, 2)
                g = Feuille.Cells(couleurC, 3)
                b = Feuille.Cells(couleurC, 4)

quand on utilise cells(x,y) pour cibler une cellule on utilise son index de ligne et pas sa valeur
et comme couleurC est la valeur de la cells(ligne,2) donc choux blanc
c'est impossible que ca fonctionne correctement
exemple :
a supposer que:
dans ta cellule cells(ligne,2) =200 (200 etant la valeur pour R)
ce qui te donne pour la ligne verte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

r = Feuille.Cells(200, 2)

ce qui est dépourvu de sens dans une boucle par la variable i

sinon je peut te l'expliquer en bulgaroafricajavanais si tu veux

**Philippe Tulliez** · 27/03/2015, 15h28

Bonjour Patrick,

quand on utilise cells(x,y) pour cibler une cellule on utilise son index de ligne et pas sa valeur
et comme couleurC est la valeur de la cells(ligne,2) donc choux blanc
c'est impossible que ca fonctionne correctement

C'est d'ailleurs ce que j'avais écrit dans ma réponse (fil #3) mais il est vrai totalement illisible à l'heure de sa publication.

**patricktoulon** · 27/03/2015, 15h40

Envoyé par Philippe Tulliez

Bonjour Patrick,

C'est d'ailleurs ce que j'avais écrit dans ma réponse (fil #3) mais il est vrai totalement illisible à l'heure de sa publication.

et moi avec la dernière ligne en post #2 mais j'ai du mal avec le javanobulgaroaffricain (je n'ai pas encore commencé a l'apprendre )

Ps: tes messages s'affichent correctement maintenant

**kiki29** · 27/03/2015, 16h11

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

**DenisHen** · 27/03/2015, 18h25

Bonsoir à tous,

Et mille mercis de vos aides...

Je comprend vos observations, mais un problème m'interpelle. Ce code fonctionne très bien au buro, mais chez moi, il s'arrête à chaque "variable" en me disant "Projet ou bibliothèque introuvable"...

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Calques").Select
    Application.EnableEvents = False
        Set Feuille = ThisWorkbook.Worksheets("CouleurRGB")
        For ligne = 2 To 250
            couleurC = Cells(ligne, 2).Value    'lecture valeur
            If couleurC <> "" Then
                r = Feuille.Cells(couleurC, 2)
                g = Feuille.Cells(couleurC, 3)
                b = Feuille.Cells(couleurC, 4)
                Cells(ligne, 2).Interior.Color = RGB(r, g, b)
                CouleurHex = "&H" & Hex(RGB(r, g, b))
                Cells(ligne, 3).Value = CouleurHex
            Else
                Cells(ligne, 2).Interior.Color = RGB(255, 255, 255)
            End If
        Next ligne
    Application.EnableEvents = True
End Sub

Et je joins aussi le fichier XLSM (celui qui fonctionne au bureau et pas chez moi)...

Merci à vous, je vais tenter de réécrire le code selon vos remarques.

Denis (perplexe)...

**DenisHen** · 27/03/2015, 18h48

Re à tous,

J'ai réécris mon code en tenant compte de vos observations, enfin, je l'espère. J'ai essayé de le faire "correctement", avec déclarations de variables et des objets...

Le voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Dim FCible As Worksheet, FSource As Worksheet, Lign As Integer
    Dim Couleur, r, g, b As Integer
    Set FCible = Worksheets("Calques")
    Set FSource = Worksheets("CouleurRGB")
    Lign = 2
    Do While FCible.Cells(Lign, 1).Value <> ""
        Couleur = FCible.Cells(Lign, 2).Value
        If Couleur = 0 Then Application.EnableEvents = True: Exit Sub
        r = FSource.Cells(Couleur, 2)
        g = FSource.Cells(Couleur, 3)
        b = FSource.Cells(Couleur, 4)
        FCible.Cells(Lign, 2).Interior.Color = RGB(r, g, b)
        FCible.Cells(Lign, 3).Value = "&H" & Hex(RGB(r, g, b))
        Lign = Lign + 1
    Loop
    Application.EnableEvents = True
End Sub

Petit problème : VBA s'arrête et me surligne "Hex" en gras en ligne 15, et il me dit "Projet ou bibliothèque introuvable"...

Et là, je suis bloqué...

Merci à vous pour toute l'aide...

Denis...

**mercatog** · 27/03/2015, 18h55

Regarde si tu as un référence manquante (Outils> Références...) serait maruqé MANQUANT

**DenisHen** · 27/03/2015, 21h01

Merci Mercatog,

J'ai effectivement une référence manquante, c'est "AXDBLib"... Et je la trouve où ? S'il te plait ? Mais après recherche sur le NET, AXDBLib est une référence AutoCAD... Et je n'ai rien d'AutoCAD dans mon projet actuel comme on peut le voir dans mon XLSM que j'ai joint dans un post précédent ? ?

Et sinon, mon code est plus "propre" que mon premier post ? C'est juste un petit conseil que je demande, car généralement, je "bidouille" trop pour faire mes codes proprement, enfin, tel que vous les auriez fait... Ou plutôt, tel qu'il faudrait les faire...

Denis...

PS : je ne comprend rien, j'ai décoché les références manquantes et maintenant, ça fonctionne impeccablement... J'aimerais que quelqu'un m'explique la différence entre une référence manquante "cochée" et une référence manquante "décochée" ? ? ? Car après l'avoir décochée, elle n’apparaît plus dans la liste des références...

Denis (dubitatif)...

**mercatog** · 27/03/2015, 22h55

Une référence manquante crée la zizanie, il suffit de la décocher spécialement quand elle ne sert à rien dans le code.

Une référence utilisée mais manquante doit être réinstallée et enregistrée

**patricktoulon** · 27/03/2015, 23h20

Au risque de me répéter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Do While FCible.Cells(Lign, 1).Value <> ""
        Couleur = FCible.Cells(Lign, 2).Value
        If Couleur = 0 Then Application.EnableEvents = True: Exit Sub
        r = FSource.Cells(Couleur, 2)
        g = FSource.Cells(Couleur, 3)
        b = FSource.Cells(Couleur, 4)
        FCible.Cells(Lign, 2).Interior.Color = RGB(r, g, b)
        FCible.Cells(Lign, 3).Value = "&H" & Hex(RGB(r, g, b))
        Lign = Lign + 1
    Loop

couleur est ce bien le numérique que tu souhaite pour obtenir l'adresse de la cellule
si c'est pas le cas alors c'est faux au risque même que si la valeur est supérieur a 255 sa plante

et pour le format hex injecte lui plutôt un long ou la résultante de interior.color qui elle te donne un long
soit si l'erreur sur couleur est avéré et la ligne sur hex continu a décorner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Do While FCible.Cells(Lign, 1).Value <> ""
        Couleur = FCible.Cells(Lign, 2).Value
        If Couleur = 0 Then Application.EnableEvents = True: Exit Sub
        r = FSource.Cells(lign, 2)
        g = FSource.Cells(lign, 3)
        b = FSource.Cells(lign, 4)
        FCible.Cells(Lign, 2).Interior.Color = RGB(r, g, b)
        FCible.Cells(Lign, 3).Value = "&H" & Hex( FCible.Cells(Lign, 2).Interior.Color )
        Lign = Lign + 1
    Loop

**DenisHen** · 28/03/2015, 19h12

Bonjour à tous,

@Patrick, effectivement, Couleur est le numéro de la couleur contenu entre 1 et 255. D’ailleurs, mon code aurait dû être écrit comme çà pour éviter les dépassement de valeur "Couleur" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Dim FCible As Worksheet, FSource As Worksheet, Lign As Integer
    Dim Couleur, r, g, b As Integer
    Set FCible = Worksheets("Calques")
    Set FSource = Worksheets("CouleurRGB")
    Lign = 2
    Do While FCible.Cells(Lign, 1).Value <> ""
        Couleur = FCible.Cells(Lign, 2).Value
        If Couleur <= 0 Or Couleur > 255 Then Application.EnableEvents = True: Exit Sub
        r = FSource.Cells(Couleur, 2)
        g = FSource.Cells(Couleur, 3)
        b = FSource.Cells(Couleur, 4)
        FCible.Cells(Lign, 2).Interior.Color = RGB(r, g, b)
        FCible.Cells(Lign, 3).Value = "&H" & Hex(FCible.Cells(Lign, 2).Interior.Color)
        Lign = Lign + 1
    Loop
    Application.EnableEvents = True
End Sub

@mercatog, j'ai compris le principe de référence manquante quand on veut l'utiliser et celle qui n'est pas ou mal installée. Mais par contre, ce que je ne comprend pas, c'est pourquoi dans mes références était cochée "MANQUANTE : AXDBLib" alors que je ne fais jamais appel à quoique ce soit qui y fait référence ? ?

En tous cas, merci encore à tous...

Denis...

Conversion couleur RGB en couleur Hexa [XL-2013]

Macros et VBA Excel

Discussions similaires

Partager

Partager