VBA problème formule

Bonjour à tous, dans une macro assez conséquente, je bloque seulement dans cette partie de code :

Code:

---

1 2 3 4 5 6 7

Var4 = Application.Max(Range("C" & j).Value, Range("D" & j).Value) Var5 = Range("E" & j).Value   Range("F" & j).FormulaLocal = NB.JOURS.OUVRES(var5;var4;I1:I10) Range("F" & j).NumberFormat = "General"   Range("G" & j).FormulaLocal=(SI(ET(Range("F" & j).value<=5;Range("F" & j).value>0);1;0))

---

Merci de m'aider svp j'en peux plus =)

Julien

Bonjour

Code:

---

Range("F" & j).FormulaLocal = "=NB.JOURS.OUVRES(" & var5 & ";" & var4 & ";I1:I10)"

---

et

Code:

---

Range("G" & j).FormulaLocal = "=SI(ET(F" & j & "<=5; F" & j & ">0);1;0)"

---

PS: Je préfère (pour une portabilité du code au cas d'Excel non français)

Code:

---

1 2	Range("F" & j).Formula = "=NETWORKDAYS(" & var5 & "," & var4 & ",I1:I10)" Range("G" & j).Formula = "=IF(AND(F" & j & "<=5, F" & j & ">0),1,0)"

---

J'ai l'impression que ma formule

Code:

---

Var4 = Application.Max(Range("C" & j).Value, Range("D" & j).Value)

---

n'est pas correcte.

Quelqu'un voit un problème ?