Discussion :

[serir]

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

La formule pour le calcul :

Code :

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

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 :

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

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