VBA et mise en forme conditionnée

vsan · 21 Septembre 2011

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!!).

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

Et je souhaiterai changer les lignes en rouge par celles-ci :

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.

Dugenou · 21 Septembre 2011

Re : VBA et mise en forme conditionnée

Bonjour,

Je n'y connait pas grand chose mais :
1) en rouge tu as formula1; et dans ce qui ne marche pas formula1:
2) 2*jl+1 = 2*(jl+1) ou (2*jl)+1

Bon courage

VBA et mise en forme conditionnée

vsan

XLDnaute Junior

Dugenou

XLDnaute Barbatruc

Discussions similaires

VBA et mise en forme conditionnée

vsan

XLDnaute Junior

Dugenou

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency