Mediane avec multiconditions en VBA

Bonjour tous :roll:,

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 11 offres et plus de 3 milles lignes.

La formule pour le calcul :

Code:

---

SIERREUR(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));"")

---

valider avec Ctrl + shift + entrée

J'ai essayé ce code mais ça ne marche pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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

---

Merci pour votre aide