VBA_mise en forme conditionnelle

Version imprimable

30/06/2024, 17h00
Lacypr

VBA_mise en forme conditionnelle

Bonjour,

petite question : est-il possible de créer une mise en forme conditionnelle sur la luminosité d'une cellule ?
Je voudrais définir un seuil de luminosité d'une cellule à partir duquel la couleur de police du texte de cette cellule s'assombrit (pour simplifier le texte est blanc si le fond de la cellule est foncé et noir si le fond de la cellule est clair).

Ma solution aurait été de définir l'expression de L (luminosité) dans le format TSL de la couleur mais, après avoir fouillé sur internet, il n'existe aucune solution concrète.

Merci d'avance :)

Salut, si ça peut t'aider, voici une solution vba:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function GetLuminosity(cell As Range) As Double
    Dim color As Long
    Dim r As Integer, g As Integer, b As Integer
    Dim lum As Double
 
    color = cell.Interior.color
    r = color Mod 256
    g = (color \ 256) Mod 256
    b = (color \ 65536) Mod 256
 
    ' Calculer la luminosité
    lum = 0.2126 * r + 0.7152 * g + 0.0722 * b
    GetLuminosity = lum
End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub ChangeFontColor()
    Dim cell As Range
    Dim lum As Double
    Dim ws As Worksheet
 
    Set ws = ActiveSheet
 
    ' Boucle sur chaque cellule dans la sélection
    For Each cell In ws.UsedRange
        If Not IsEmpty(cell) Then
            lum = GetLuminosity(cell)
            If lum < 128 Then
                cell.Font.color = RGB(255, 255, 255)    ' Blanc si fond foncé
            Else
                cell.Font.color = RGB(0, 0, 0)    ' Noir si fond clair
            End If
        End If
    Next cell
End Sub

Insère les 2 macros dans un module standard et exécute ChangeFontColor pour modifier la couleur de police. Tu peux jouer sur la variable lum pour définir tes seuils ou ajouter des seuils intermédiaires.

Citation:
Envoyé par Franc
Salut, si ça peut t'aider, voici une solution vba:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Function GetLuminosity(cell As Range) As Double Dim color As Long Dim r As Integer, g As Integer, b As Integer Dim lum As Double color = cell.Interior.color r = color Mod 256 g = (color \ 256) Mod 256 b = (color \ 65536) Mod 256 ' Calculer la luminosité lum = 0.2126 * r + 0.7152 * g + 0.0722 * b GetLuminosity = lum End Function
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub ChangeFontColor() Dim cell As Range Dim lum As Double Dim ws As Worksheet Set ws = ActiveSheet ' Boucle sur chaque cellule dans la sélection For Each cell In ws.UsedRange If Not IsEmpty(cell) Then lum = GetLuminosity(cell) If lum < 128 Then cell.Font.color = RGB(255, 255, 255) ' Blanc si fond foncé Else cell.Font.color = RGB(0, 0, 0) ' Noir si fond clair End If End If Next cell End Sub
Insère les 2 macros dans un module standard et exécute ChangeFontColor pour modifier la couleur de police. Tu peux jouer sur la variable lum pour définir tes seuils ou ajouter des seuils intermédiaires.
Bonsoir,

merci pour le retour.

Je n'ai pas encore testé ta fonction car la luminosité n'est pas égale à 0.2126 * r + 0.7152 * g + 0.0722 * b.
J'ai fait le teste sur une couleur RGB(0,51,204), et bien 0.2126 * 0 + 0.7152 * 51 + 0.0722 * 204 = 51,204 et non 102 (car RGB(0,51,204) = HSL(160,255,102). Par contre ça fonctionne si j'ajoute la ligne lum = round(lum)*2 mais c'est totalement inutile puisque ça ne fonctionne que pour mon exemple.

Ca aurait été trop facile que lum soit si facilement exploitable!

Je suis preneur pour une autre solution