Filtre médian

criscris11

XLDnaute Accro

• 6 Septembre 2007

• #2

Re : Filtre médian

Bonjour fred, re le forum,
Voici la syntaxe en VBA pour la fonction MEDIANE :
"=MEDIAN(10,25)"
Bon après-midi.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 6 Septembre 2007

• #3

Re : Filtre médian

Bonjour fred, salut cris (t'inquiètes pas, je bosse sur ton classeur 😉)
en VBA :
x = Application.Median(Range("H1:M1"))

 

Vote positif 0 Vote négatif

F

fred-bene

XLDnaute Occasionnel

• 6 Septembre 2007

• #4

Re : Filtre médian

Ca avance cool.
Le problème peut être résulo de la sorte mais mes données ne sont pas écrites dans la feuille excel mais dans une matrice du type data(200) déclarée avec un dim data(200) as integer.
Ensuite ce tableau est rempli de données sur lesquelles je fais des manipulations dont l'une d'elle est de trouver la médiane....

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 6 Septembre 2007

• #5

Re : Filtre médian

Re,
bhbh : je ne m'inquiète pas, je me doute bien que tu planches dessus (pas facile, hein ?) 😀
Quant à ma réponse concernant la réponse de Fred, j'ai juste été récupérer la syntaxe avec l'enregistreur de macro, cela doit être popur cela que ma réponse est moins complète que celle de bhbh.
Bon après-midi à tous les deux.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 6 Septembre 2007

• #6

Re : Filtre médian

Re-,
et en faisant MsgBox Application.Median(data), ça donne quoi?

 

Vote positif 0 Vote négatif

F

fred-bene

XLDnaute Occasionnel

• 6 Septembre 2007

• #7

Re : Filtre médian

Ca y est tout est réglé dans le meilleur des mondes :

****************


' médiane de detec à +/-1

For j = 1 To nbval

detect(j) = Application.Median(detect(j - 1), detect(j), detect(j + 1))

Next j

****************



Merci à tous.

Fred

 

Vote positif 0 Vote négatif