vba excel: récupérer la valeur de la fonction NB.SI dans une cellule

Bonjour,

J'ai ce code :

Citation:

---

With XlSheet.Range("D1")
.FormatConditions.Add Type:=2, _
Formula1:="=NB.SI(D6:D" & nRow & ";""in progress"")"
.FormatConditions(1).Interior.ColorIndex = 33
End With

---

Sur toute la colonne D, je compte le nb de fois où il y a le texte "in progress".
Si > 0, je colorie la cellule D1.

Je voudrais aussi stocker ce résultat dans la cellule D1.

Comment récupérer le résultat de NB.SI ?

Bonjour,
Et en pemplaçant

Code:

---

"=NB.SI(D6" & nRow & ";""in progress"")"

---

par

Code:

---

"=Nb.SI($D$6:$D$" & nRow & ";""in progress"")"

---

J'ai résolu le pb, tout simplement:

Citation:

---

XlSheet.Range("D1").Select
XlSheet.Range("D1") = "=NB.SI(D6:D" & nRow & ",""in progress"")"

---

J'ai enlevé mon With...End With.

Par contre cela marche avec ',' et non ';' dans la formule du NB.SI.