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.
Pouvez-vous m’aider.
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.
VB:
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 SubPouvez-vous m’aider.