Mfc en VBA

Bonjour le forum,

J'aurais besoin de convertir une mise en forme conditionnelle en vba...

Quelqu'un aurait-il la solution?

Merci d'avance,

Christelle

Bonjour,

en utilisant l'enregistreur de macro :

Sub MFC()
    Range("A2:C19").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=MOD(ENT(SOMME(1/NB.SI($B$2:$B2;$B$2:$B2)));2)=1"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent5
        .TintAndShade = 0.599963377788629
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Ednoork

Bonsoir,

Sub MFC()
    With ActiveSheet.Range("A2:C19").FormatConditions
        .Delete
        With .Add(xlExpression, , "=MOD($B2;2)=1")
            .Interior.Color = RGB(218, 238, 243)
        End With
    End With
End Sub

Cordialement.

edit : la formule que j'ai retenue est suffisante sur ton modèle... toutefois si ta formule prévoyait la possibilité que la numérotation de tes documents en B ne suive pas une suite numérique naturelle, que des numéros puissent être sautés, etc., à remplacer par :

"=MOD(SOMMEPROD(1/NB.SI($B$2:$B2;$B$2:$B2));2)=1"

[NB- qui me paraît préférable à ta formule initiale...]

Merci beaucoup à vous deux. c'est nickel

Christelle