Discussion :

[Daniela_]

Bonjour à tous,

lorsque je rentre la formule :

Code :

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

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 :

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

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

[parmi]

Bonjour,

Et si tu essayais avec Formula plutôt que FormulaArray ?

[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...

[Daniela_]

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

Code :

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

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 ?

[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.

[Invité]

http://www.developpez.net/forums/d13...55-caracteres/

[EngueEngue]

L'objet worksheetfunction a toutes tes fonctions.

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