Mediane avec multiconditions

[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 plusieurs offres et un nombre important de lignes.

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

Sub MEDIANE()
For Each cellule In Range("M3:X9")
annee = Range("x1")
offre = UCase(Range("y1"))
mois = UCase(Cells(2, cellule.Column))
jour = UCase(Cells(cellule.Row, 11))
cellule.Value = Application.Evaluate("MEDIAN(IF((" & _
offre & "=R1C25)*(" & _
jour & "=RC11)," & _
mois & "R2C)," & _
annee & "=R1C24)," & _
C8 & "))")
Next cellule
End Sub

Le fichier est sur le lien : https://onedrive.live.com/redir?resid=8952CE5DAEF23B26!122&authkey=!AK_xvd_-saszoGs&ithint=file,xlsx

Merci pour votre aide.

 

[vcoolio]

Salutations Serir,

Pour une réponse rapide et appropriée, s'il vous plaît poster votre demande dans les "questions dans d'autres langues" forum.

Merci,
vcoolio.

 

[serir]

Le nouveau lien est le suivant

https://onedrive.live.com/redir?resid=1F17DFDA78D91A3!127&authkey=!AHyQeR6sOwfV9tY&ithint=file,xlsx


Merci pour votre compréhension

 

[serir]

Désolé le code est :

[TABLE="width: 92"]
<colgroup><col></colgroup><tbody>[TR]
[TD]Sub MEDIANE()[/TD]
[/TR]
[TR]
[TD]For Each cellule In Range("J3:L9")[/TD]
[/TR]
[TR]
[TD]annee = Range("m1")[/TD]
[/TR]
[TR]
[TD]offre = UCase(Range("n1"))[/TD]
[/TR]
[TR]
[TD]mois = UCase(Cells(2, cellule.Column))[/TD]
[/TR]
[TR]
[TD]jour = UCase(Cells(cellule.Row,9))[/TD]
[/TR]
[TR]
[TD]cellule.Value = Application.Evaluate("MEDIAN(IF((" & _[/TD]
[/TR]
[TR]
[TD]offre & "=R1C14)*(" & _[/TD]
[/TR]
[TR]
[TD]jour & "=RC9)," & _[/TD]
[/TR]
[TR]
[TD]mois & "R2C)," & _[/TD]
[/TR]
[TR]
[TD]annee & "=R1C13)," & _[/TD]
[/TR]
[TR]
[TD]C7 & "))")[/TD]
[/TR]
[TR]
[TD]Next cellule[/TD]
[/TR]
[TR]
[TD]End Sub[/TD]
[/TR]
</tbody>[/TABLE]

[TABLE="width: 92"]
<colgroup><col></colgroup><tbody>[TR]
[TD]Sub MEDIANE()[/TD]
[/TR]
[TR]
[TD]For Each cellule In Range("J3:L9")[/TD]
[/TR]
[TR]
[TD]annee = Range("m1")[/TD]
[/TR]
[TR]
[TD]offre = UCase(Range("n1"))[/TD]
[/TR]
[TR]
[TD]mois = UCase(Cells(2, cellule.Column))[/TD]
[/TR]
[TR]
[TD]jour = UCase(Cells(cellule.Row,9))[/TD]
[/TR]
[TR]
[TD]cellule.Value = Application.Evaluate("MEDIAN(IF((" & _[/TD]
[/TR]
[TR]
[TD]offre & "=R1C14)*(" & _[/TD]
[/TR]
[TR]
[TD]jour & "=RC9)," & _[/TD]
[/TR]
[TR]
[TD]mois & "R2C)," & _[/TD]
[/TR]
[TR]
[TD]annee & "=R1C13)," & _[/TD]
[/TR]
[TR]
[TD]C7 & "))")[/TD]
[/TR]
[TR]
[TD]Next cellule[/TD]
[/TR]
[TR]
[TD]End Sub[/TD]
[/TR]
</tbody>[/TABLE]