XL 2010 VBA - Colorer une cellule en fonction des codes RVB de 3 autres cellules

[tchi456]

Bonjour,

Je souhaiterais colorer automatiquement une cellule en fonction des codes couleur RVB de 3 autres cellules (A2;B2;C2).
Peut-on le faire par formule? Si "non" comment le faire par VBA?

Mes meilleures salutations,

Thierry

 

[Compte Supprimé 979]

Bonjour Tchi456

Par formule, pour moi c'est impossible

En revanche en VBA

Range("A1").Interior.color = RGB(Range("A2"),Range("B2"),Range("C2"))

A+

 

[vgendron]

Bonjour
colorer une cellule en fonction de la couleur d'une autre cellule
==> impossible par formule excel
==> impossible par MFC

à condition d'avoir une formule excel qui donne la valeur de la couleur de la cellule, une MFC pourrait colorer une cellule en fonction de ladite valeur

sinon. par VBA.. mais la.. pas de fichier = pas de proposition

 

[tchi456]

Bonjour BrunoM45 et vgendron,

Merci Bruno pour votre proposition mais je n'y arrive malheureusement pas.
Voici le fichier en question.

Meilleures salutations et bon week-end.

 

[vgendron]

avec ce code dans la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
Dim trouve As Range
Dim CompR, CompV, CompB As Long
With Sheets("Codes couleurs RAL")
    Set trouve = .Range("A1:A2").Find(Target.Value, LookIn:=xlValues)
    If Not trouve Is Nothing Then
        CompR = trouve.Offset(0, 2)
        CompV = trouve.Offset(0, 3)
        CompB = trouve.Offset(0, 4)
    End If
End With
   
    With Range("A1").Interior
        .Color = RGB(CompR, CompV, CompB)
    End With
End Sub

 

[tchi456]

Votre code fonctionne merveilleusement bien Vgendron.

Je vous en remercie et vous souhaite un très bon week-end.