Assigner une valeur issue d'une formule

Bonjour,

J'ai cette ligne VBA :

Code:

---

ActiveCell.Offset(0, 1).Formula = "=CountIF(F1:F1000, ""Open"")"

---

Mais j'aimerai plutot faire quelque chose comme :

Code:

---

1 2 3 4

Dim nb_open As Integer Set nb_open.Value = CountIF(F1:F1000, ""Open"") ' retourne un entier ActiveCell.Offset(0, 1).Value = nb_open.Value ' inscrire la valeur et non la formule

---

Comment faire pour que la syntaxe soit bonne ?

Merci beaucoup.

Bonsoir.

Tu peux essayer

Code:

---

ActiveCell.Offset(0, 1).Value = Application.WorksheetFunction.CountIF(Range("F1:F1000"), "Open")

---

IL vaudrait mieux être plus précis dans la désignation de la cellule et de la plage, mais j'ai repris ce que tu avais commencé...

Cordialement,

PGZ

Merci !!