Filtre médian

[fred-bene]

Bonjour à tous.

La fonction mediane existe-t'elle sous vba directement ?

Merci et @+

Fred

🙂

 

[criscris11]

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.

 

[Cousinhub]

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"))

 

[fred-bene]

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....

 

[criscris11]

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.

 

[Cousinhub]

Re : Filtre médian

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

 

[fred-bene]

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