Couleurs RGB / ColorIndex

Bonjour,

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

Aperçu :

c2b

Fichier :

6'144couleurs.xlsm (28.19 Ko)

Et celui pour la propriété ColorIndex :

Aperçu :

colorindex

Fichier :

4'475colorindex.zip (10.36 Ko)

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

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 :

rgb

Tableau Web :

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

Fichier :

2'668rgb.xlsm (128.30 Ko)

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

Bonjour Sebastien,

Avec tout ça je pense avoir trouvé mon bonheyr

un grand merci

@+

Amicalement

Noel

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

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 --> https://forum.excel-pratique.com/excel/colorier-automatiquement-une-forme-a-partir-de-donnees-rvb-t1948.html

Amicalement

Rechercher des sujets similaires à "couleurs rgb colorindex"