MFC conditionnelle excel 97

[tuonoman]

Bonjour à tous,

Je suis débutant en VBA sur excel, en l’occurrence essai de réaliser une macro permettant de faire une MFC sur condition.

Si C4 =1, alors E7 :F9 sont gris

Si C4=2, alors F7 :F9 sont gris.


J’arrive à ce code, mais celui-ci fonctionne que partiellement.

Private Sub Worksheet_Change(ByVal Target As Range)

With Range("E7:F9")
    'Supprime les MFC existantes
    .FormatConditions.Delete
    End With
   
    With Range("E7:F9")
    'Ajoute une condition (Vrai lorsque la cellule est non vide)
    .FormatConditions.Add Type:=xlExpression, Formula1:="=SI($C$4=1;VRAI;FAUX)"
   
    With .FormatConditions(1)
        'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
        .Interior.ColorIndex = 15 'Gris
               
     End With
     End With
    
     With Range("E7:F9")
    'Supprime les MFC existantes
    .FormatConditions.Delete
    End With
   
    With Range("F7:F9")
    'Ajoute une condition (Vrai lorsque la cellule est non vide)
    .FormatConditions.Add Type:=xlExpression, Formula1:="=SI($C$4=2;VRAI;FAUX)"
   
    With .FormatConditions(1)
        'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
        .Interior.ColorIndex = 15 'Gris
       
     End With
     End With

End Sub

Pouvez-vous m’aider.

 

[M12]

Bonjour,

A tester

Private Sub Worksheet_Change(ByVal Target As Range)

Range("E7:F9").Interior.ColorIndex = 0
    If Range("c4") = 1 Then
        Range("E7:F9").Interior.ColorIndex = 15
        Else
            If Range("c4") = 2 Then
                Range("F7:F9").Interior.ColorIndex = 15
            End If
    End If
End Sub

 

[tuonoman]

Parfait, merci de ton aide.