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