[XL-2007] Addition de 2 formules en VB

[Butterfly67]

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

[gFZT82]

Bonjour,

Il me semble que tu ne reproduis pas la même formule

Dans la formule 2 :

Code :

=MONTH('STOCK GRAINES'!$b8),'utilisation de GRAINES'!" & Range(Cells(378, x), Cells(388, x)).Address(columnAbsolute:=True, RowAbsolute:=True)

Dans la formule combinée:

Code :

=MONTH('STOCK GRAINES'!$b8),'utilisation de GRAINES'!" & Range(Cells(6, x), Cells(368, x)).Address(columnAbsolute:=True, RowAbsolute:=True)

Cordialement.