Discussion :

[leonardoleonardo]

Bonjour Communauté, je reviens vers vous pour :
somme de plusieurs produit comme suit :
.Range (x,y).value = Sum (des produits des deux cellules bleues en fonction de ("n" =17) que je px déterminer et "n" étant le nombre des produits).value

une sorte de :

.Range (x,y).value = ( .Range("C",5) * .range("C",7)) + (.Range("C",13) * .range("C",15)) + ........



merci d'avance pour vos réponses

[anasecu]

Bonjour,

somme de plusieurs produit comme suit :
.Range (x,y).value = Sum (des produits des deux cellules bleues en fonction de ("n" =17) que je px déterminer et "n" étant le nombre des produits).value

Si tu veux faire la somme de plusieurs produits c'est la fonction SOMMEPROD qui est faite pour cela :

Code :

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

=SOMMEPROD((MOD(LIGNE($C$1:$C$136);8)=5)*$C$1:$C$136*$C$3:$C$138)

Avec cette formule tu additionnes les produits de tes "cellules bleues" sur 17 plages.

[leonardoleonardo]

Merci Anasecu,

par contre serait-il possible de me dire son équivalent VBA car j'ai impression que c'est une formule Excel, est-ce bien le cas?

[unparia]

Bonjour
Il est souvent possible d'utiliser depuis VBA des méthodes qui reprennent (sans pour autant les utiliser dans une formule) des fonctions de Excel. Tel est, pour ce qui t'intéresse, le cas de la méthode WorksheetFunction.SumProduct Rubrique WorksheetFunction.SumProduct, méthode de ton aide interne VBA
Inutile, donc, de réinventer la roue. Sauf s'il t'est imposé d'écrire en VBA les instructions qui conduiraient aux résultats de cette méthode. Mais quelle serait alors l'origine exacte d'une telle imposition ?

[leonardoleonardo]

Bonjour Unparia,

là je comprends bien, merci , non en fait ce n'est pas une exigence d'écrire en VBA mais juste une question sur l'équivalent VBA si ce la existe

[BENNASR]

bonjour cousin, la forum
tu fais la somme selon les couleurs ou quoi??? je te comprends pas...si c'est possible merci d'expliquer davatange
si tu cherches à faire une somme à plusieurs conditions vous avez sumifs

Code :

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

 .Cells(I, "C").Value = Application.WorksheetFunction.SumIfs(Sheets("feuil1").Range("C1:C7"), Sheets("feuil1").Range("A1:A7"), .Cells(I, "A"), Sheets("feuil1").Range("B1:B7"), .Cells(I, "B"))

sumifs(champs à sommer, champs condition1, condition1, champs condition2, condition2...)

[anasecu]

Bonjour unparia,

le cas de la méthode WorksheetFunction.SumProduct de ton aide interne VBA
Inutile, donc, de réinventer la roue.

Tout à fait d'accord pour utiliser "Application.WorksheetFunction.SumProduct" ou même plus simplement "Application.SumProduct",
mais dans ma formule j'utilise aussi les fonctions "MOD" et "LIGNE" qui ne sont pas considérées comme des WorksheetFunction.

As-tu une astuce pour la faire fonctionner ? je n'ai pas trouvé mais ce doit être possible sans doute : merci d'avance.

[unparia]

la fonction Excel MOD retourne un modulo (le reste d'une division)
C'est ce que fait en VBA l'opérateur MOD
La fonction Excel Ligne retourne le N° de ligne d'une "référence" (une plage de cellules)
C'est ce que fait en VBA la propriété Row d'un objet Range