Erreur 1004 VBA

Bonjour à tous,

J'ai actuellement une erreur 1004 sur une de mes macro qui m’embête bien.

En effet, je voudrais modifier une formule dans une cellule définie via une macro afin de la déployer sur un ensemble de documents identiques via une autre macro (ça fonctionne ça)

Mon souci, c'est que lorsque j'essaye la macro de modification de la formule j'ai une erreur 1004 systématiquement et je n'arrive pas a comprendre d'ou viens le problème.

Opérationnellement parlant je voudrais mettre cette formule :

=SI(I4="";NB.SI.ENS(E7:E2500;">"&0;F7:F2500;"");SI(NB.SI.ENS(E7:E2500;">"&0;F7:F2500;"";AB7:AB2500;I4)=0;NB.SI.ENS(E7:E2500;">"&0;F7:F2500;"";AC7:AC2500;I4);NB.SI.ENS(E7:E2500;">"&0;F7:F2500;"";AB7:AB2500;I4)))

dans la cellule "O4" sur la feuille "BESOIN 2017"

Via macro j'obtiens ce code :

Sheets("BESOINS 2017").Select

Range("O4").Select

ActiveCell.FormulaR1C1 = _

"=IF(RC[-6]="""",COUNTIFS(R[3]C[-10]:R[2496]C[-10],"">""&0,R[3]C[-9]:R[2496]C[-9],""""),IF(COUNTIFS(R[3]C[-10]:R[2496]C[-10],"">""&0,R[3]C[-9]:R[2496]C[-9],"""",R[3]C[13]:R[2496]C[13],RC[-6])=0,COUNTIFS(R[3]C[-10]:R[2496]C[-10],"">""&0,R[3]C[-9]:R[2496]C[-9],"""",R[3]C[14]:R[2496]C[14],RC[-6]),COUNTIFS(R[3]C[-10]:R[2496]C[-10],"">""&0,R[3]C[-9]:R[2496]C[-9],"""",R[3]" & _

"2496]C[13],RC[-6])))"

Et c'est la ou j'ai l'erreur 1004 qui apparais à l’exécution.

une idée de ce que j'aurais loupé ?

Cordialement.

Ch@p'

Bonjour,

Essaie ainsi :

Range("O4").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-6]="""",COUNTIFS(R[3]C[-10]:R[2496]C[-10],"">""&0,R[3]C[-9]:R[2496]C[-9],"""")," & Chr(10) & _
        "IF(COUNTIFS(R[3]C[-10]:R[2496]C[-10],"">""&0,R[3]C[-9]:R[2496]C[-9],"""",R[3]C[13]:R[2496]C[13],RC[-6])=0," & Chr(10) & _
        "COUNTIFS(R[3]C[-10]:R[2496]C[-10],"">""&0,R[3]C[-9]:R[2496]C[-9],"""",R[3]C[14]:R[2496]C[14],RC[-6])," & Chr(10) & _
        "COUNTIFS(R[3]C[-10]:R[2496]C[-10],"">""&0,R[3]C[-9]:R[2496]C[-9],"""",R" & "[3]C[13]:R[2496]C[13],RC[-6])))" & ""

Bonjour jean-Eric,

La macro fonctionne merci beaucoup

Peux tu m'expliquer la modification que je comprenne d'ou viens le problème pour la prochaine fois ?

Cordialement.

Ch@p'

RE,

Mis à part que j'ai ajouté des retours chariot pour la lisibilité de la formule, j'ai conservé les derniers caractères de la formule que tu avais effacé.

Cdlt.

[code]Range("O4").Select

ActiveCell.FormulaR1C1 = _

"=IF(RC[-6]="""",COUNTIFS(R[3]C[-10]:R[2496]C[-10],"">""&0,R[3]C[-9]:R[2496]C[-9],"""")," & Chr(10) & _

"IF(COUNTIFS(R[3]C[-10]:R[2496]C[-10],"">""&0,R[3]C[-9]:R[2496]C[-9],"""",R[3]C[13]:R[2496]C[13],RC[-6])=0," & Chr(10) & _

"COUNTIFS(R[3]C[-10]:R[2496]C[-10],"">""&0,R[3]C[-9]:R[2496]C[-9],"""",R[3]C[14]:R[2496]C[14],RC[-6])," & Chr(10) & _

"COUNTIFS(R[3]C[-10]:R[2496]C[-10],"">""&0,R[3]C[-9]:R[2496]C[-9],"""",R" & "[3]C[13]:R[2496]C[13],RC[-6])))" & ""[/code]

Ok,

Merci pout ton aide.

Cordialement.

Ch@p'