Mediane avec multiconditions

Gardien de phare

XLDnaute Accro

• 17 Février 2016

• #2

Re : Mediane avec multiconditions

Bonsoir,
J'ai comme une idée que le plus rapide, notamment à réaliser, mais aussi en calcul serait un TCD !

 

Vote positif 0 Vote négatif

S

serir

Guest

• 18 Février 2016

• #3

Re : Mediane avec multiconditions

Bonjour 😎,

J'ai oublié de dire que 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.

Merci pour la compréhension.

 

Vote positif 0 Vote négatif

S

serir

Guest

• 18 Février 2016

• #4

Re : Mediane avec multiconditions

Rebonjour,

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

 

Vote positif 0 Vote négatif

S

serir

Guest

• 29 Février 2016

• #5

Re : Mediane avec multiconditions

Bonjour 😎,

BigDaddy154 vous m'avez sauvé auparavant, j'aimerai bien que vous soyez là car j'ai besoin de toi.

Ci-joint, le fichier avec de code VBA différents, un est correcte et lent l'autre affiche FAUX.


Merci pour votre aide.

 

Pièces jointes

• ExcerciceMedian.xlsm

  23.1 KB · Affichages: 43

Vote positif 0 Vote négatif