Cellules avec MFC

Bonjour à tous,

J'ai une feuille de données qui contient, entre autres, 7 cellules avec MFC.

La mise en forme est un remplissage.

La mfc s'applique si il y a une différence entre deux montants, donc une erreur.

Je désirerais, qu'après avoir entré les données, il y ait un message disant que des erreurs se sont glissées.

Les cellules en question sont B9, B16, B23,. B30, B37, G9 et G16.

J'ai beau essayé avec "interior.color=49407, cela ne fonctionne pas. Et le remplissage est bien 49407,

Je joins une partie du code qui a créé ma mfc. Faite à partir de l'enregistrement d'une macro.

Range("B9").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
                                   Formula1:="=$S$4"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True

Alors si quelqu'un a une idée, je suis prenante.

Merci

Claire

Bonjour

et cette formulation

.colorindex =

Vu sur autres forums

Cordialement

FINDRH