Bonjour au forum,
Dans un fichier contenant une cinquantaine de feuille à la structure identique, j'applique les mêmes MFC sur toutes ces feuilles à l'aide d'une macro.
Je bloque cependant sur un point :
J'essaie d'appliquer une MFC en VBA qui se traduirait comme ceci en formule =
=SI(OU(ET(C5=1;C6=1;C7=0);ET(C5=0;C6=0;C7=1));"OK";"Pas OK")
en appliquant la MFC sur les cellules C5:C7, puis D5:D7.......G5:G7
Par code, ceci fonctionne :
Sub MFC()
'=SI(OU(ET(C5=1;C6=1;C7=0);ET(C5=0;C6=0;C7=1));"Oui";"Non")"
For i = 3 To 7
x = Cells(5, i).Value
y = Cells(6, i).Value
Z = Cells(7, i).Value
If (x = 1 And y = 1 And Z = 0) Or (x = 0 And y = 0 And Z = 1) Then
Cells(5, i).Interior.Color = RGB(234, 241, 221)
Cells(6, i).Interior.Color = RGB(234, 241, 221)
Cells(7, i).Interior.Color = RGB(234, 241, 221)
Else
Cells(5, i).Interior.Color = RGB(242, 221, 220)
Cells(6, i).Interior.Color = RGB(242, 221, 220)
Cells(7, i).Interior.Color = RGB(242, 221, 220)
End If
Next i
End Sub
J'aimerais intégrer ceci via un .Formatconditions.Add pour ne pas avoir à lancer de macro mais je ne trouve pas de solution satisfaisante...
Merci d'avance pour votre aide !