Couleurs RGB / ColorIndex

Pour écrire et partager des tutoriels et des astuces avec les autres membres (Excel ou VBA uniquement)
Avatar du membre
Sébastien
Administrateur
Administrateur
Messages : 1'966
Appréciations reçues : 165
Inscrit le : 4 décembre 2004
Version d'Excel : 2013
Téléchargements : Mes applications
Contact :

Message par Sébastien » 15 février 2011, 14:36

Bonjour,

Voici un petit utilitaire permettant d'obtenir les valeurs RGB d'une couleur.

Aperçu :
c2b.png
c2b.png (24.22 Kio) Vu 64401 fois
Fichier :
Couleurs.xlsm
(28.19 Kio) Téléchargé 5021 fois
Avatar du membre
Sébastien
Administrateur
Administrateur
Messages : 1'966
Appréciations reçues : 165
Inscrit le : 4 décembre 2004
Version d'Excel : 2013
Téléchargements : Mes applications
Contact :

Message par Sébastien » 30 août 2011, 21:13

Et celui pour la propriété ColorIndex :

Aperçu :
colorindex.png
colorindex.png (8.54 Kio) Vu 64095 fois
Fichier :
colorindex.xls
(42 Kio) Téléchargé 3867 fois
Code :
Sub tab_colorindex() 'Sébastien - Forum Excel-Pratique
    For ligne = 1 To 7
        For col = 1 To 8
            couleur = col + (ligne - 1) * 8
            Cells(ligne, col) = couleur
            Cells(ligne, col).Interior.ColorIndex = couleur
        Next
    Next
End Sub
Exemples d'utilisation :
Range("A1").Interior.ColorIndex = 5 'Colorer la cellule A1 en bleu
Range("A1").Font.ColorIndex = 3 'Colorer le texte de la cellule A1 en rouge
Avatar du membre
Sébastien
Administrateur
Administrateur
Messages : 1'966
Appréciations reçues : 165
Inscrit le : 4 décembre 2004
Version d'Excel : 2013
Téléchargements : Mes applications
Contact :

Message par Sébastien » 15 septembre 2011, 02:48

Pour compléter ce post sur les couleurs, voici un tableau de valeurs RGB et leur couleur respective (accompagné du code et du fichier pour les curieux ;;) ) :

Tableau Excel :

Image


Tableau Web :

Cette même liste de couleurs est accessible ici : https://www.excel-pratique.com/fr/vba/li ... rs-rgb.php


Fichier :
RGB.xlsm
(128.3 Kio) Téléchargé 2173 fois
Code :
Sub apercus_rgb() 'Sébastien - Forum Excel-Pratique
     ligne = 0
    For r = 0 To 256 Step 32
        For g = 0 To 256 Step 32
            ligne = ligne + 1
            For b = 0 To 256 Step 32
                col = b / 32 + 1
                If r = 256 Then r = 255
                If g = 256 Then g = 255
                If b = 256 Then b = 255
                Cells(ligne, col) = r & ", " & g & ", " & b
                Cells(ligne, col).Interior.Color = RGB(r, g, b)
                If (r + g + b) / 32 < 7 Then Cells(ligne, col).Font.ColorIndex = 15
            Next
        Next
    Next
End Sub
Explications sur l'utilisation des couleurs RGB en VBA :

https://www.excel-pratique.com/fr/vba/couleurs.php
Sébastien
c
cfn3cfn
Membre impliqué
Membre impliqué
Messages : 1'627
Inscrit le : 9 octobre 2008
Version d'Excel : 2003 FR PC

Message par cfn3cfn » 15 novembre 2011, 09:09

Bonjour Sebastien,
Avec tout ça je pense avoir trouvé mon bonheyr
un grand merci
@+
Amicalement
Noel
Amicalement
Noël
Proverbe ZEN "Une image vaut dix mille mots"
"Si tu donnes un poisson à un homme, il mangera un jour. Si tu lui apprends à pêcher, il mangera toujours."
En se résignant le malheureux consomme son malheur
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 5'872
Appréciations reçues : 75
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2004, 2011

Message par Dan » 16 novembre 2011, 13:49

Bonjour

Tant que l'on y est, une autre proposition. Un peu dans le même style que celle de Sébastien en premier post.

Aperçu
Clipboard01.jpg

Le code associé au bouton
Sub colorie()
'Macro par Dan le 06/07/2007
Dim R, V, B
R = Range("F3")
V = Range("G3")
B = Range("H3")
ActiveSheet.Shapes("Oval 3").Fill.ForeColor.RGB = RGB(R, V, B)
End Sub
Le lien sur le forum --> http://forum.excel-pratique.com/excel/c ... t1948.html

Amicalement
@+ Dan ;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message