Discussion :

[shakapouet]

Bonjour,

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

Quand j'utilise ce code ça fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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]

[shakapouet]

J'obtiens ce résultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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] ?

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[shakapouet]

C'est bon résultat trouvé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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