Couleurs RGB / ColorIndex

[Sébastien]

Bonjour,

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

Aperçu :

c2b.png (24.22 Kio) Vu 1424 fois

Fichier :

Couleurs.xlsm

(28.19 Kio) Téléchargé 249 fois

[Sébastien]

Et celui pour la propriété ColorIndex :

Aperçu :

colorindex.png (8.54 Kio) Vu 1118 fois

Fichier :

colorindex.xls

(42 Kio) Téléchargé 122 fois

Code :

Code: Tout sélectionner

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 :

Code: Tout sélectionner

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


[Sébastien]

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 :




Fichier :

RGB.xlsm

(128.3 Kio) Téléchargé 93 fois

Code :

Code: Tout sélectionner

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 :

http://www.excel-pratique.com/fr/vba/couleurs.php

[cfn3cfn]

Bonjour Sebastien,
Avec tout ça je pense avoir trouvé mon bonheyr
un grand merci
@+
Amicalement
Noel

[Dan]

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

Le code associé au bouton

Code: Tout sélectionner

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

Amicalement