Bonjour tout le monde,
J'ai écris le code suivant afin de récupérer le code RGB de chaque couleur de la palette d'un classeur :
Le code s'exécute correctement mais quand je regarde les codes RGB obtenus, ils ne correspondent absolument pas à la palette de mon classeur mais semblent correspondre à la palette par défaut d'Excel 2002.
C'est à n'y rien comprendre.
Auriez vous une idée sur l'erreur que j'ai pu commettre ?
Je vous remercie par avance de votre aide
J'ai écris le code suivant afin de récupérer le code RGB de chaque couleur de la palette d'un classeur :
Code:
Sub RecupPalette()
Dim Cellule As Range
Dim CoulRVB As Long
For Each Cellule In Selection.Cells
CoulRVB = Cellule.Interior.Color
Rouge = Int(CoulRVB Mod 256)
Vert = Int((CoulRVB Mod 65536) / 256)
Bleu = Int(CoulRVB / 65536)
Cellule = Cellule.Interior.ColorIndex & Chr(10) & Rouge & " - " & Vert & " - " & Bleu
Next
End Sub
C'est à n'y rien comprendre.
Auriez vous une idée sur l'erreur que j'ai pu commettre ?
Je vous remercie par avance de votre aide