Colorer une cellule

Hello,

Je suis débutant en programmation excel et je cherche comment remplir le fond d'une cellule sur la base de 3 valeurs (RGB) donné dans 3 autres cellules.

Quelqu'un pourrait-il m'aider ?
Thx

Bonjour,
Il faudrait en savoir un peu plus car littéralement, remplir une cellule sur la base de 3 cellules donne 3 couleurs pour une cellule:calim2:

Alors a partir de trois nombres donné dans trois cellules (pour le code RGB) : 255,0,0 (255 dans A1 ; 0 dans A2 ; 0 dans A3)
J'aimerais colorer le fond d'une autre cellule (en rouge dans l'exemple)

ps : si la fonction existe aussi pour colorer le fond avec le code CMYK, je suis aussi interessé

Merci

Bonjour,

Une idée :

Code:

---

[A1].Interior.Color = RGB([B1], [B2], [B3])

---

Hervé.

Merci mais en utilisant une fonction personnalisée comment faire pour que la cellule à colorer (A1 dans ton exemple) soit celle de la cellule ou la fonction est entrée.

Bonsoir,

Attention, il faut bien faire la différence entre procédure et fonction, une procédure (Sub-End Sub) effectue des actions sur des objets (et bien d'autres choses mais je ne vais pas m'étendre sur le sujet), une fonction (Function-End Function) retourne une valeur ou un tableau de valeurs mais ne peut pas exécuter d'action sur des objets (dans le VBE on peut éventuellement) et dans ce cas, il n'est pas possible d'utiliser une fonction dans Excel pour colorer une ou plusieurs cellules ou toutes autres actions de ce genre. Tu peux par contre utiliser une Sub mais il te faudra la déclancher soit manuellement soit par une procédure évennementielle :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Colorer(Cel As Range, _ R As Integer, _ G As Integer, _ B As Integer)   Cel.Interior.Color = RGB(R, G, B)   End Sub   Sub test()   Colorer [A6], [B1], [B2], [B3]   End Sub

---

Hervé.

Merci pour ta réponse.
Je suis désolé de mon ignorance en la matière.

Mais est-il possible de designer une seule cellule (celle a colorer) et ensuite, relativement à celle-ci, designer les 3 autres cellules (celles contenant le code de couleur)

Bonjour,

Tu n'as pas à être désolé, on ne peut pas tout savoir et moi même j'en suis à des années-lumière.
Si j'ai bien compris, tu veux que les cellules contenant les valeurs à prendre en compte soient relatives à la cellule à colorer ? Un exemple avec Offset() :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test()   Dim CelAColorer As Range   'cellule que l'on veux colorer Set CelAColorer = Range("A1")   '.Offset(0, 2) = sur la même ligne et deux colonnes plus à droite '.Offset(1, 2) = une ligne plus bas et deux colonnes plus à droite '.Offset(2, 2) = deux lignes plus bas et deux colonnes plus à droite Colorer CelAColorer, CelAColorer.Offset(0, 2), CelAColorer.Offset(1, 2), CelAColorer.Offset(2, 2)   End Sub

---

Hervé.

Merci pour toutes vos réponses

ça marche