FormulaArray et erreur 1004

Version imprimable

Bonjour à tous,

lorsque je rentre la formule :

Code:

1
2
3
4
=IF($B2="";"";IF(ISERROR(
INDEX(Previous_Table!$AP$6:$AP$13000;MATCH(XSCL!B6&XSCL!H6;Previous_Table!$B$6:$B$13000&Previous_Table!$H$6:$H$13000;0)))=TRUE;"";IF(
INDEX(Previous_Table!$AP$6:$AP$13000;MATCH(XSCL!B6&XSCL!H6;Previous_Table!$B$6:$B$13000&Previous_Table!$H$6:$H$13000;0))="";"";(
INDEX(Previous_Table!$AP$6:$AP$13000;MATCH(XSCL!B6&XSCL!H6;Previous_Table!$B$6:$B$13000&Previous_Table!$H$6:$H$13000;0))))))

directement sur excel je n'ai aucun problème mais lorsque je la code sur VBA :

Code:

1
2
3
4
5
6
    Range("Z3").Select
    Selection.FormulaArray = _
        "=IF(RC2="""","""",IF(ISERROR(" & _
        "" & Chr(10) & "INDEX(Previous_Table!R6C42:R13000C42,MATCH(XSCL!R[4]C[-24]&XSCL!R[4]C[-18],Previous_Table!R6C2:R13000C2&Previous_Table!R6C8:R13000C8,0)))=TRUE,"""",IF(" & _
        "" & Chr(10) & "INDEX(Previous_Table!R6C42:R13000C42,MATCH(XSCL!R[4]C[-24]&XSCL!R[4]C[-18],Previous_Table!R6C2:R13000C2&Previous_Table!R6C8:R13000C8,0))="""","""",(" & _
        "" & Chr(10) & "INDEX(Previous_Table!R6C42:R13000C42,MATCH(XSCL!R[4]C[-24]&XSCL!R[4]C[-18],Previous_Table!R6C2:R13000C2&Previous_Table!R6C8:R13000C8,0))))))"

J'ai l'erreur 1004, impossible de définir la propriété FormulaArray de la classe Range. (unable to set the FormulaArray property of the range class)

Quelqu'un aurait-il une solution ?

Merci

14/11/2013, 15h33
parmi

Bonjour,

Et si tu essayais avec Formula plutôt que FormulaArray ?
14/11/2013, 15h42
Daniela_

Si je mets "formula seul" ça ne me met pas les acolades à la formule sur excel et donc ça n'effectue pas un calcul matriciel.

D'ou la necessité de formulaArray je pense...

En réduisant en dessous de 255 caractères ça marche mais bon c'est pas l'idéal.
Code:

1 2 3 4 Range("AP6").Select Selection.FormulaArray = _ "=IF(RC2="""","""",IFERROR(" & _ "" & Chr(10) & "INDEX(Previous_Table!R6C42:R13000C42,MATCH(XSCL!R[4]C[-24]&XSCL!R[4]C[-18],Previous_Table!R6C2:R13000C2&Previous_Table!R6C8:R13000C8,0)),""""))"
Si quelqu'un à une autre idée, ou alors comment pourrais-je diviser ma formule en trois bloc de moins de 255 caractères, je ne sais pas si cela est possible ?

14/11/2013, 16h08
Invité

Salut,

Il y a avait eu une discussion similaire il y a quelque mois de ça sur le forum concernant la limite de 255 caractères en utilisant FormulArray. Excel dans les dernière version limite à (il me semble) 4096 caractères, mais le transfert VBA 7.1 (Excel 2013) et inférieur => EXCEL limite à 255 caratères seulement. Quelqu'un avait trouvé une solution d'ailleurs en y allant avec une fonction Replace que je ne saurait reproduire. Il faudrait retrouver le poste.
14/11/2013, 16h13
Invité

http://www.developpez.net/forums/d13...55-caracteres/
14/11/2013, 16h15
EngueEngue

L'objet worksheetfunction a toutes tes fonctions.

Tu peux contourner en les utilisant depuis VBA. Puis en appelant ta fonction depuis worksheet_change.