Additionner 2 formules en VB

butterfly67

XLDnaute Nouveau
Bonjour à tous,

Voilà mon petit soucis ...... J'ai 2 formules matricielles qui fonctionnent très bien de façon indépendante :

Formule 1 : 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 : 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 ....

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 :confused:.... 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
 

Discussions similaires

Réponses
17
Affichages
760
Réponses
2
Affichages
402

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla