Bonjour à Tous.

Voilà, je souhaiterai en VBA remplir en rouge des cellules suivant les conditions suivantes :
SI la Cellule AV7 est >50 et que dans les cellules que je souhaite remplir soit >15 alors les cellules ce remplissent en rouge.
sinon les cellules restent en blanche.

Ci-dessous un morceau de code pour une cellule, mais pour plusieurs cellule je bloc.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
If Range("AV7") > 50 And Range("AV20") > 15 Or Range("AV7") < 50 And Range("AV20") > 1 Then
    Range("AV20").Interior.Color = 255
    ElseIf Range("AV7") > 50 And Range("AV20") < 15 Or Range("AV7") < 50 And Range("AV20") < 1 Then
        With Range("AV20").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
        End With
End If
MERCI POUR VOTRE AIDE.

PS : Sans passer par la mise en forme conditionnelles .
Cordialement