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