Discussion :

[Mat32]

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

[casefayere]

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

[Mat32]

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

[Theze]

Bonjour,

Une idée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Hervé.

[Mat32]

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.

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[Mat32]

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)

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[Mat32]

Merci pour toutes vos réponses

ça marche