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...