Sommeprod en VBA

Iznogood1

XLDnaute Impliqué

• 16 Mars 2015

• #2

Re : Sommeprod en VBA

Une piste
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(AND(MONTH(RC[-6]:R[22]C[-6])=1,YEAR(RC[-6]:R[22]C[-6])=2015)*(RC[-5]:R[22]C[-5]=""OUI""))"

 

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 19 Mars 2015

• #3

Re : Sommeprod en VBA

Bonsoir le forum, Iznogood1,

Merci pour ta proposition,
J'ai continué de mon côté à rechercher une solution sans FormulaR1C1
Le résultat n'est pas exactement celui attendu.

Code:

Cells(2, 7) = Evaluate("=SUMPRODUCT(Month(A2:A100=(F2))*(B2:B100=""OUI""))")

Ce code me retourne le nombre total de "OUI" mais le mois n'est pas pris en compte.
La solution est probablement toute proche...

Ivan

 

Pièces jointes

• Test1.xlsm

  43.7 KB · Affichages: 29
• Test1.xlsm

  43.7 KB · Affichages: 35
• Test1.xlsm

  43.7 KB · Affichages: 41

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 19 Mars 2015

• #4

Re : Sommeprod en VBA

Bonjour à tous,

Peux-tu essayer :

Cells(2, 7) = Evaluate("=SUMPRODUCT((MONTH(A2:A100)=MONTH(F2))*(B2:B100=""OUI""))")

Cliquez pour agrandir...

A+ à tous

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 19 Mars 2015

• #5

Re : Sommeprod en VBA

Bonjour le Forum,

Un petit exemple qui peut être utile ?

A+

René

 

Pièces jointes

• Classeur1.xlsm

  19.3 KB · Affichages: 30
• Classeur1.xlsm

  19.3 KB · Affichages: 38
• Classeur1.xlsm

  19.3 KB · Affichages: 34

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 19 Mars 2015

• #6

Re : Sommeprod en VBA

Re bonjour à tous,

Merci beaucoup JCGL.
J'avais fais des tentatives avec le second "MONTH" mais mes parenthèses étaient incorrectes.
René, je conserve précieusement ton "petit" exemple...
Je vous réitère mes remerciements,
Bonne fin de journée
Ivan

 

Vote positif 0 Vote négatif