[RESOLU] Obtenir code couleur RGB ou Hexadecimal

[cp4]

Bonjour,

J'ai mis en forme une plage de données en un tableau structuré excel.
J'ai voulu utiliser la couleur de ce tableau sur une autre feuille sans utiliser le copier coller la mise en forme, mais plutôt par un code couleur.
La fonction ci-dessous me donne le code de la couleur de l'une des cellules.
Mais en l'utilisant la couleur n'est pas identique.

Function CodeCouleur(CelluleCouleur As Range) As Long
'Retourne le code couleur de la CelluleCouleur
Application.Volatile
Codecouleur = CelluleCouleur.Interior.ColorIndex
End Function

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.

 

[cp4]

Bonsoir Modeste Geedee,

C'est vraiment le top ton fichier. Je le mets avec les autres dans ma bibliothèque. Enfin, si je peux l'appelais ainsi. Vraiment très gentil de ta part.

Encore merci.

Bonne soirée

 

[VIARD]

Bonsoir Modeste Geedee,

C'est vraiment le top ton fichier. Je le mets avec les autres dans ma bibliothèque. Enfin, si je peux l'appelais ainsi. Vraiment très gentil de ta part.

Encore merci.

Bonne soirée

Bonjour CP4 et à tous

Histoire d'ajouter un peu d'eau au moulin.
Si tu veux en savoir plus sur une cellule couleur ou autre

IntColor = ActiveCell.Interior.Color
'-------- Couleur Fond cellule (RGB) (Hexa) --------
HexDigits = Hex(IntColor)
Do Until Len(HexDigits) = 6
HexDigits = "0" & HexDigits
Loop
BluePartie = Val("&h" & Left(HexDigits, 2))
GreenPartie = Val("&h" & Mid(HexDigits, 3, 2))
RedPartie = Val("&h" & Right(HexDigits, 2))
ValeurRGB = "(" & RedPartie & " , " & GreenPartie & " , " & BluePartie & ")"
ValeurHexa = Hex$(IntColor)
'MsgBox "&H" & Hex$(IntColor)
'----------------------------------------------------------

Voici mon petit fichier

A+ Jean-Paul

 

[cp4]

Merci beaucoup Jean Paul. Toute ma gratitude.
La classe