Bonjour,
Je dispose d'un tableau où les lignes correspondent à des noms d'échantillons et en colonnes, je dispose des codes RGB (une colonne R, une G, une B) de leurs couleurs. Dans une autre colonne, je souhaite faire une cellule où apparaitrait un visuel de la couleur.
J'ai écrit la macro suivante :
Sub couleur()
For i = 4 To 65
Range("Q" & i).Interior.Color = RGB(Range("N" & i).Value, Range("O" & i).Value, Range("P" & i).Value)
Next
End Sub
Elle fonctionne si ce n'est qu'au lieu des vraies couleurs correspondant à mes RGB, j'ai la couleur (moche) Excel la plus proche. Y a-t-il un moyen d'obtenir les vraies couleurs sans passer par des rectangles, ShapeRange etc., ou pire par des figures via Paint (envisageable parce que je n'ai qu'une soixantaine d'échantillons) ?
Je n'ai rien trouvé sur le net, à part une proposition de rajouter ".RGB "avant le =. Cela semble marcher avec la méthode des rectangles mais pas avec ma formule.
Je précise que je ne suis pas une pro en code et je ne connais pas le langage VBA.
Merci d'avance pour vos réponses.