Comment savoir le n° d'une couleur faites en MFC

Sub test()

MsgBox showRGB(Range("A1")) 'valeur rgb
MsgBox showColorIndex(Range("A1")) 'valeur index code couleur excel
MsgBox ShowHTMLcolor(Range("A1")) ' valeur hexadecimale

End Sub

  Function showRGB(rcell)
     Dim xColor As String
     xColor = Right("000000" & Hex(rcell.Interior.color), 6)
     showRGB = Right(xColor, 2) & Mid(xColor, 3, 2) _
      & Left(xColor, 2)
  End Function

  Function showColorIndex(rcell)
      showColorIndex = rcell.Interior.colorIndex
  End Function

  Function ShowHTMLcolor(xcell) As String
     Dim xColor As String
     xColor = Right("000000" & Hex(xcell.Interior.color), 6)
     ShowHTMLcolor = "#" & Right(xColor, 2) & Mid(xColor, 3, 2) _
      & Left(xColor, 2)
  End Function