vsan
XLDnaute Junior
Bonjour à tous,
Je cherche à forcer la mise en forme conditionnée de mes cellules via une macro...
Pour le moment, j'ai cela (j'ai raccourci la macro, sinon elle est trop longue!!).
Mais ça ne veut pas...
Est-ce que qqn pourrait m'aiguiller dans le codage des conditions de mise en forme conditionnelles en VBA?
D'avance, merci.
Je cherche à forcer la mise en forme conditionnée de mes cellules via une macro...
Pour le moment, j'ai cela (j'ai raccourci la macro, sinon elle est trop longue!!).
Et je souhaiterai changer les lignes en rouge par celles-ci :Range("B4").select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OR($C4=""JF"";$C4=""WE"";$C4=""NAFF"")"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -65536
.TintAndShade = 0
End With
Code:
Dim j1 as integer
For j1 = 1 To 12
Cells(4, 2 * j1).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OR(cells(4,2*j1+1)=""JF"";cells(4,2*j1+1)=""WE"";cells(4,2*j1+1)=""NAFF"")"
Mais ça ne veut pas...
Est-ce que qqn pourrait m'aiguiller dans le codage des conditions de mise en forme conditionnelles en VBA?
D'avance, merci.