mise en couleur caractère à partir d'un code hexadécimal Résolu/Fermé

Question

Bonjour, 

J'ai besoin des lumière des spécialistes Excel

Je désire me faire un tableau de couleurs sous Excel

J'ai donc 3 colonnes avec les intensités de Rouge, Vert, Bleu dont les valeurs vont de 00h à FFh (0 à 255)

Dans une autre colonne, j'ai un pattern composé de 8x le caractère 219 (DBh). Je désire colorier ce pattern de la couleur obtenue par l'intensité RVB définie dans les trois colonnes précédentes

Par Exemple, en colonne A, B et C j'ai les valeurs FF A5 et 00 (255 165 0), je désire que le pattern se trouve colorié en Orange qui est la couleur obtenue

Existe-t-il une formule excel me permettant de le faire ou faut il passer en VBA ?

Merci d'avance


Configuration: Windows 7 Pro 64/ Internet Explorer 10.0 / Office 2010

eriiic · Answer

Bonjour,

ça sera en vba :
Sub couleurRVB()
    Dim lig As Long, derlig As Long
    Dim R As Long, V As Long, B As Long
    derlig = Cells(Rows.Count, 4).End(xlUp).Row
    For lig = 2 To derlig
        R = CLng("&h" & Cells(lig, 1))
        V = CLng("&h" & Cells(lig, 2))
        B = CLng("&h" & Cells(lig, 3))
        Cells(lig, 4).Interior.Color = RGB(R, V, B)
    Next lig
End Sub
https://www.cjoint.com/c/DBhvcefmYx9

Mais pas sûr qu'excel 2003 puisse retranscrire toute la palette, excel 2010 peut-être (à contrôler)

eric

eriiic · Answer

lorsque je modifie le code hexa, la modif ne se fait pas ?
Ben non. Pourquoi je l'aurais fait si tu ne le demandes pas ? Il faut lancer la macro.

De ce que j'ai compris, sinon met un exemple complet du résultat de ce que tu veux :
Sub patternCouleur()
    Dim lig As Long, derlig As Long
    derlig = Cells(Rows.Count, 4).End(xlUp).Row
    For lig = 2 To derlig
        patternCouleurLig (lig)
    Next lig
End Sub

Sub patternCouleurLig(lig As Long)
    Dim s As String
    Dim R As Long, V As Long, B As Long
    R = CLng("&h" & Cells(lig, 1))
    V = CLng("&h" & Cells(lig, 2))
    B = CLng("&h" & Cells(lig, 3))
    s = String(8, Chr(CLng("&h" & Cells(lig, 4))))
    Application.EnableEvents = False
    Cells(lig, 5) = String(8, Chr(CLng("&h" & Cells(lig, 4))))
    Cells(lig, 5).Font.Color = RGB(R, V, B)
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Row = 1 Or Target.Column > 4 Then Exit Sub
    patternCouleurLig (Target.Row)
End Sub
https://www.cjoint.com/?DBiaU3QOBAT
La macro patternCouleur() traite toutes les lignes.
Si tu modifies une donnée en A:D le pattern se met à jour par appel de patternCouleurLig(lig).

eric

Miura564 · Answer

Merci Eric pour ta réponse et ta patience...

visiblement je ne sais pas exprimer mon problème ou bien je ne sais pas utiliser les macros. Je n'ai pas encore réussi à utiliser cette deuxième version. D'ailleurs, comment je lance la macro ? 

Voici un exemple de ce que j'aimerais obtenir : 

> Essai de colorisation texte (Excel 2010)

Si je peux encore abuser, j'aimerais que la colorisation se fasse au fur et à mesure de la saisie si cela est possible et pas trop compliqué évidemment

eriiic · Answer

D'ailleurs, comment je lance la macro ?  
Comme toutes les autres macros...
De plus je t'avais mis des boutons 'test xxx', il suffit de cliquer dessus.
Et, comme demandé, une saisie en A:D met à jour les couleurs.
Il ne faut pas être timide devant un fichier...

Macro adaptée à ton fichier : 
https://www.cjoint.com/c/DBikMh1sBtj
Je te laisse ajouter les pattern. Chez moi le code ASCII DB est le caractère Û.
Ajout non demandé : tu peux également saisir en A, B:D se mettront à jour.

eric


En plus du merci (si si, ça se fait !!!), penser à mettre en résolu lorsque c'est le cas (en haut vers votre titre). 
Merci

Mise en couleur caractère à partir d'un code hexadécimal

4 réponses

Discussions similaires