Problème d'utilisation de la formule : formulaR1C1 en VBA

Bonjour,

Je souhaite intégrer une formule excel dans une cellule à l aide de VBA

Quand j'utilise ce code ça fonctionne :

Code:

---

Cells(7, 10).FormulaLocal = "=SIERREUR(INDEX(colis;EQUIV(1;(date_liv=I1)*(itm8=I2);0));0)"

---

Par contre mes paramètre I1 et I2 vont changer donc j'aimerais utiliser formulaR1C1 pour qu'il puisse changer automatiquement.
Par contre la formule me renvois une erreur :

Code:

---

Cells(7, 10).FormulaR1C1Local = "=SIERREUR(INDEX(colis;EQUIV(1;(date_liv=R1C9)*(itm8=R2C9);0));0)"

---

ou

Code:

---

Cells(7, 10).FormulaR1C1 = "=SIERREUR(INDEX(colis;EQUIV(1;(date_liv=R1C9)*(itm8=R2C9);0));0)"

---

J'ai une erreur d'execution 1004 , quelqu’un pourrait m expliquer svp ?

Cordialement

Bonjour,

Code:

---

1 2	Cells(7, 10).FormulaLocal = "=SIERREUR(INDEX(colis;EQUIV(1;(date_liv=I1)*(itm8=I2);0));0)" debug.print Cells(7, 10).FormulaR1C1

---

regarde le résulta dans la fenêtre d'exécution raccourci clavier [CTRL] + [G]

J'obtiens ce résultat :

Code:

---

=IFERROR(INDEX(colis,MATCH(1,(date_liv=R[-6]C[-1])*(R[1]C[6607]=R[-5]C[-1]),0)),0)

---

Pourquoi mon paramètre ITM8 deviens R[1]C[6607] ?

car la formule retourné est en position relative!
si tu entre

Code:

---

Cells(8, 10).FormulaR1C1=IFERROR(INDEX(colis,MATCH(1,(date_liv=R[-6]C[-1])*(R[1]C[6607]=R[-5]C[-1]),0)),0)

---

tu obtiens la même formule décalé d'une ligne vers le bas pour tout les terme.

C'est bon résultat trouvé :

Code:

---

Cells(6, nbr_prep_arr).FormulaLocal = "=SIERREUR(INDEX(colis;EQUIV(1;(date_liv=L(-1)C)*(itm8=LC(" & ligne & "));0));0)"

---

Par contre comment faire pour appliquer un $ pour fixer cette valeur : date_liv=L(-1)C

Cordialement