Addition de 2 formules en VB
Bonjour à tous,
Voilà mon petit soucis ...... J'ai 2 formules matricielles qui fonctionnent très bien de façon indépendante :
Formule 1 :
Code:
1
2
| Selection.FormulaArray = _
"=SUM(IF(MONTH('utilisation de GRAINES'!$a$6:$a$368)=MONTH('STOCK GRAINES'!$b8),'utilisation de GRAINES'!" & Range(Cells(6, x), Cells(368, x)).Address(columnAbsolute:=True, RowAbsolute:=True) & "*'utilisation de GRAINES'!" & Cells(5, x).Address(columnAbsolute:=True, RowAbsolute:=True) & "))" |
Formule 2 :
Code:
1
2
| Selection.FormulaArray = _
"=SUM(IF(MONTH('utilisation de GRAINES'!$a$378:$a$388)=MONTH('STOCK GRAINES'!$b8),'utilisation de GRAINES'!" & Range(Cells(378, x), Cells(388, x)).Address(columnAbsolute:=True, RowAbsolute:=True) & "*'utilisation de GRAINES'!" & Cells(5, x).Address(columnAbsolute:=True, RowAbsolute:=True) & "))" |
Je voudrais combiner les 2 en les additionnant, un truc du style ....
Code:
1
2
| Selection.FormulaArray = _
"=SUM(IF(MONTH('utilisation de GRAINES'!$a$6:$a$368)=MONTH('STOCK GRAINES'!$b8),'utilisation de GRAINES'!" & Range(Cells(6, x), Cells(368, x)).Address(columnAbsolute:=True, RowAbsolute:=True) & "*'utilisation de GRAINES'!" & Cells(5, x).Address(columnAbsolute:=True, RowAbsolute:=True) & "))+SUM(IF(MONTH('utilisation de GRAINES'!$a$6:$a$368)=MONTH('STOCK GRAINES'!$b8),'utilisation de GRAINES'!" & Range(Cells(6, x), Cells(368, x)).Address(columnAbsolute:=True, RowAbsolute:=True) & "*'utilisation de GRAINES'!" & Cells(5, x).Address(columnAbsolute:=True, RowAbsolute:=True) & "))" |
Mais là ca coince .... j'ai le message "Impossible de définir la propriété FormulaArray de la classe range".
A force d'être dessus, je n'arrive plus à voir mon erreur ... Si quelqu'un a une idée .... Merci
