Discussion :

[chris76]

Bonjour,

J'ai la même demande que dans cette discussion, si ce n'est qu'à la place d'avoir 3 cellules contenant chacune 1 valeur pour colorer la 4ème, je souhaite colorer la cellule elle-même qui contient le code couleur, celui se présentant sous la forme de d'un code en hexadécimal type FF0000 (le code du rouge donc) par exemple. Aurais-tu une solution ?

Merci!

[Theze]

Bonjour Chris76,

De cette façon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub test()
 
    Dim Cel As Range
 
    'adapter la cellule cible
    Set Cel = Range("A1")
 
    Cel.Interior.Color = Val(Cel.Value)
 
End Sub

Hervé.

[chris76]

Salut,

Ca ne marche pas. La cellule est coloriée en noir systématiquement....

[Philippe Tulliez]

Bonjour,
Tout dépend de ce que l'on tape comme valeur en A1, par exemple 56000 donnera un fond vert, 255 du rouge etc ....
A lire absolument ce didacticiel

[Theze]

Re,

Si la valeur dans ta cellule est bien en hexadécimal, il n'y a pas de raison que ça ne marche pas puisque Val() la convertie en Long ?

Code :

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

1
2
 
MsgBox Val(&HFF&)

Te retourne bien 255 pour le rouge.

Hervé.

[chris76]

Bon, au final ca marche, mais j'ai un peu ramé qd même :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Colorier(Cel As Range, Couleur)
 
    r = Val("&H" & Left(Couleur, 2) & "&")
    g = Val("&H" & Mid(Couleur, 3, 2) & "&")
    b = Val("&H" & Right(Couleur, 2) & "&")
    Cel.Interior.color = RGB(r, g, b)
 
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    valeur = ActiveCell.Value
    Colorier ActiveCell, valeur
End Sub