Ecrire en Vba une formule matricielle

Bonsoir à tous

Voila je cherche à traduire en VBA ces deux formules une c'est matricielle et l'autre une formule simple

pour la matricielle c'est :

Citation:

---

=SIERREUR(MOYENNE(SI(($C$20:$C$1048576="Entrée");$F$20:$F$1048576));"-")

---

et la simple c'est :

Citation:

---

=SIERREUR(SOMME.SI($C$20:$C$1048576;"Entrée";$G$20:$G$1048576)+SOMME.SI($C$20:$C$1048576;"Annulation";$G$20:$G$1048576);"-")

---

Merci à vous tous par avance

Cordialement

Bonjour,

Si c'est pour mettre dans une cellule, il faut utiliser la propriété FormulaArray de l'objet Range (avec la formule en anglais).

Bonjour,

Il faut aussi doubler les " internes pour que vba l'interprète comme un caractère de la formule et non comme fin de chaine (et de la formule).

Tu peux aussi laisser la formule en français avec .formulaLocal :

Code:

---

[A1].FormulaLocal = "=SIERREUR(MOYENNE(SI(($C$20:$C$1048576=""Entrée"");$F$20:$F$1048576));""-"")"

---

Ce qui n'existe pas pour les formules matricielles (FormulaArrayLocal n'existe pas).
Mais tu peux la mettre en français, et ensuite la valider en matriciel avec :

Code:

---

[A1].FormulaArray = [A1].Formula

---

Autre façon : inscrire ta formule dans un nom (dans un nom elle sera toujours matricielle) et mettre =ton_nom en formule dans ta cellule.

eric