XL 2016 couleur en fonction de valeur

[nicroq]

Bonsoir a tous,

je souhaiterai faire un truc tt simple par vba mais je bloque la...
dans le fichier joint vous trouverai en colonne D des couleurs avec le RGB associé en colonne E, F,G. et je souhaiterai mettre les cellules de la colonne A qui sont egales de la meme couleur que ds l'ordre la colone D.

Merci d avance pour votre aide
Cordialement

 

[job75]

Bonjour nicroq, le forum,

Sub Couleurs()
Dim P As Range, c As Range, n&, coul&, c1 As Range
Application.ScreenUpdating = False
Columns(1).Interior.ColorIndex = xlNone 'RAZ
Set P = Columns(1).SpecialCells(xlCellTypeConstants)
For Each c In P
    If c.Interior.ColorIndex = xlNone Then
        n = n + 1
        coul = Cells(n, 4).Interior.Color
        For Each c1 In P
            If c1 = c Then c1.Interior.Color = coul
        Next
    End If
Next c
End Sub

On s'appuie sur les couleurs affichées en colonne D.

Bonne journée.

 

[job75]

Pour une meilleure lisibilité on peut appliquer une police de couleur blanche :

Sub Couleurs()
Dim P As Range, c As Range, n&, coulfond&, coulpolice&, c1 As Range
Application.ScreenUpdating = False
Columns(1).Interior.ColorIndex = xlNone 'RAZ
Set P = Columns(1).SpecialCells(xlCellTypeConstants)
For Each c In P
    If c.Interior.ColorIndex = xlNone Then
        n = n + 1
        coulfond = Cells(n, 4).Interior.Color
        coulpolice = Cells(n, 4).Font.Color
        For Each c1 In P
            If c1 = c Then c1.Interior.Color = coulfond: c1.Font.Color = coulpolice
        Next c1
    End If
Next c
End Sub

 

[nicroq]

C est parfait! Merci bcp je vais pouvoir finaliser mon VBA!
bonne fin de journée