Fonction Si d'Excel en VBA

Bonjour à tous,

J’essaye de passer en vain une formule Excel en code VBA sans succès.
En Excel j’ai ça =SI(ET(D9>$C$3;D9<$C$4;A9=1);1;SI(ET(D9>$C$3;D9<$C$4;A9=0);0;2))
En VBA j’ai tenté ça mais ne marche pas

Code:

---

.range("F9:F1618").formula=.range(SI(ET(RC[-2]>" & C & ";RC[-2]<R4C3;rc[-5]=1);1;SI(ET(RC[-2]>" & C & ";RC[-2]<R4C3;rc[-5]=0);0;2)))

---

« C » est une variable qui s’incrémente de 1 à 60

Merci par avance

Bonjour

Écris ta formule dans une cellule et sélectionne cette cellule
Dans l'éditeur vba, fenêtre: Exécution, écris ceci:

Citation:

---

?activecell.formular1c1

---

et valide (Enter)
Tu récupéras ta formule à insérer dans ton code

Code:

---

Range("Q20").FormulaR1C1 = "=IF(AND(R[-12]C[-10]>R3C3,R[-12]C[-10]<R4C3,R[-12]C[-13]=1),1,IF(AND(R[-12]C[-10]>R3C3,R[-12]C[-10]<R4C3,R[-12]C[-13]=0),0,2))"

---

Par exemple si, tu veux dans ta formule insérer une variable

Code:

---

1 2 3 4

Dim MaVar As Double   MaVar = 34.678 Range("Q21").FormulaR1C1 = "=IF(AND(R[-12]C[-10]>" & MaVar & ",R[-12]C[-10]<R4C3,R[-12]C[-13]=1),1,IF(AND(R[-12]C[-10]>R3C3,R[-12]C[-10]<R4C3,R[-12]C[-13]=0),0,2))"

---

Bonjour mercatog,

Un grand merci pour la rapidité, de plus je ne connaissais pas cette fonctionnalité très intéressante.

Bonne soirée.