Si texte de la cellule noir, alors fond de cellule d'une autre couleur

Bonjour,

Il y a un code que je n'arrive pas à trouver malgré mes multiples tentatives :

"Si la couleur de texte de ces cellules sont noirs, alors la couleur de fond de cette cellule est RGB (197,217,241) et cette même cellule est encadré en noir"

La plage concernée est O27:JY295.

J'ai utilisé If then - interior.colorindex - font.color, rien n'y fait !

Avez vous une solution ?

Par avance, merci !

Bonjour,

une proposition, pas très performante.

Sub aargh()
    Application.ScreenUpdating = False
    For Each c In Range("O27:JY295")
        With c
            If .Font.Color = 0 Then
                .Interior.Color = RGB(197, 217, 241)
                .Borders.Weight = xlThin
                .Borders.Color = 0
            End If
        End With
    Next c
    Application.ScreenUpdating = True
End Sub

Bonjour,

fonction personnalisée et MFC à peaufiner

edit : bonjour H2SO4

34couleur.xlsm (14.23 Ko)

Bonjour,

Merci pour vos deux réponses rapides !

Pour la première proposition :

Le code marche mais du coup me colorie touuutes les cases car celles-ci, même si elles sont vides sont automatiquement de couleur noir. Il ne me faudrait la mise en forme souhaitée uniquement pour les cellules où il y a quelques chose d'écrit.

J'essaye la deuxième proposition lundi (pour le boulot) et je vous tiens au courants

Le code marche mais du coup me colorie touuutes les cases car celles-ci, même si elles sont vides sont automatiquement de couleur noir.

Justement la MFC te permet de personnaliser la plage et d'autres critères.

Mais en l'état ... seule la case renseignée est colorée !

capture d ecran 211

Steelson, ton idée fonctionne parfaitement !

Merci pour votre aide

Rechercher des sujets similaires à "texte noir fond couleur"