Microsoft 365 Couleur des cases suivant la valeur de celle-ci

[netparty]

Bonjour à tous

Est-il possible de colorier automatiquement une case en fonction de la valeur de celle-ci en utilisant les couleurs RGB.

Merci et bonne journée

 

[Dan]

Bonjour,

Si j'ai bien saisi votre question et pour faire au plus simple vous pouvez créer une mise en forme conditionnelle sur la cellule qui définit quand vous voulez appliquer la couleur et dans la mise en forme conditionnelle définir votre couleur RGB en cliquant sur le bouton Format --> onglet "Remplissage" puis bouton "Autre couleur" --> Onglet "Personnalisées"

Crdlt

 

[sylvanu]

Bonjour Netparty, Dan,

Est-il possible de colorier automatiquement une case en fonction de la valeur de celle-ci en utilisant les couleurs RGB.

Oui, par exemple en VBA, voir PJ.
( en formule je ne sais pas faire, mais avec 365 peut être cela est il possible )

 

[netparty]

Bonjour Netparty, Dan,

Oui, par exemple en VBA, voir PJ.
( en formule je ne sais pas faire, mais avec 365 peut être cela est il possible )

Merci de votre aide

Bonne journée

 

[netparty]

Bonjour Netparty, Dan,

Oui, par exemple en VBA, voir PJ.
( en formule je ne sais pas faire, mais avec 365 peut être cela est il possible )

Est-il possible de l'appliquer sur une plage de cellule ?

Merci

 

[sylvanu]

Est-il possible de l'appliquer sur une plage de cellule ?

Guère plus complexe.

Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin ' au cas où valeur >255 ou chaine caractères
    If Not Intersect(Target, [F:H]) Is Nothing Then
        If Target = "" Then Exit Sub
        L = Target.Row
        Cells(L, "J").Interior.Color = RGB(Cells(L, "F"), Cells(L, "G"), Cells(L, "H"))
    End If
Fin:
End Sub

Ne remet à jour que la cellule modifiée.
S'il faut remettre à jour toute la plage à chaque modification, il faut modifier la macro.

 

[Dranreb]

Bonjour.
Voir cette ressource

Élaboration et utilisation de jeux de couleurs.

14 Septembre 2017

Tableaux de couleurs paramétrables en vue de mises en formes soignées.

• Dranreb
• angle teinte chaleur code couleur énergie force gaîté gamma hexa palette
• Divers

 

[netparty]

Guère plus complexe.

Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin ' au cas où valeur >255 ou chaine caractères
    If Not Intersect(Target, [F:H]) Is Nothing Then
        If Target = "" Then Exit Sub
        L = Target.Row
        Cells(L, "J").Interior.Color = RGB(Cells(L, "F"), Cells(L, "G"), Cells(L, "H"))
    End If
Fin:
End Sub

Ne remet à jour que la cellule modifiée.
S'il faut remettre à jour toute la plage à chaque modification, il faut modifier la macro.

Top merci