Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
XL 2010VBA - Colorer une cellule en fonction des codes RVB de 3 autres cellules
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
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?
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
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
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
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD