Forums

LOUCAN.FR :: Forums :: Microsoft OFFICE :: Codes VBA
 
<< Previous thread | Next thread >>
VBA - Utilisation de SUMPRODUCT pour faire un Moyenne.si
Moderators: Jordane
Author Post
Jordane
Fri Sep 13 2013, 02:21am

Registered Member #1
Joined: Wed Mar 17 2010, 04:14pm
Posts: 74
Dans les nouvelles versions d'Excel, il existe la fonction Moyenne.si
=> Qui se traduit en VBA par AVERAGEIF.


Toutefois, pour d'anciennes versions d'Excel, il faudra utiliser une autre méthode....
Je vous propose l'utilisation du SOMEPROD


' Calcul de la Moyenne des cellules M1:M10 si les cellules G1:G10 = "ok"

Sub MoyenneSiViaSommeprod()
Plage1 = "G1:G10"
Plage2 = "M1:M10"
' Pour un critère texte, utiliser Triple Guillemets
critere = """ok"""
SommeProd = "SUMPRODUCT((" & Plage1 & " = " & critere & ")*(" & Plage2 & "))/SUMPRODUCT((" & Plage1 & " = " & critere & ")*(1))"
Mosi = Application.Evaluate(SommeProd)
Debug.Print Mosi
End Sub



Cordialement,
jordane




Cordialement,
Jordane.
www.jr.loucan.fr
Back to top
 

Jump:     Back to top

Syndicate this thread: rss 0.92 Syndicate this thread: rss 2.0 Syndicate this thread: RDF
Powered by e107 Forum System