Bonjour tous ,
J'ai calculé la médiane avec multi-conditions, le calcul est lent je voulais le faire avec le vba puisque le calcule pourrait être plus rapide.
L'exercice que j'ai joint c'est juste un exemple. L’exécution lente est sur mon vrai fichier qui contient plusieurs offres et un nombre important de lignes.
La formule pour le calcul : SI(ESTERREUR(MEDIANE(SI(($A$2:$A$44=$N$1)*($E$2:$E$44=J$2)*($B$2:$B$44=$I3)*($F$2:$F$44=$M$1);$G$2:$G$44)));"";MEDIANE(SI(($A$2:$A$44=$N$1)*($E$2:$E$44=J$2)*($B$2:$B$44=$I3)*($F$2:$F$44=$M$1);$G$2:$G$44)))
J'ai essayé ce code mais ça ne marche pas
Sub MEDIANE()
For Each cellule In Range("J3:L9")
annee = Range("m1")
offre = UCase(Range("n1"))
mois = UCase(Cells(2, cellule.Column))
jour = UCase(Cells(cellule.Row,9))
cellule.Value = Application.Evaluate("MEDIAN(IF((" & _
offre & "=R1C14)*(" & _
jour & "=RC9)," & _
mois & "R2C)," & _
annee & "=R1C13)," & _
C7 & "))")
Next cellule
End Sub
Le tableau est sur ce lien :
Merci pour votre aide.