Recherche et modification de point aberrant

Bonjour

Je dispose d'une colonne de donnée avec, hélas certains points aberrants viennent perturber le graphique.

Est-il possible de créer une VBA permettant de trouver ses points aberrants et de les remplacer par la valeur équivalent à la moyenne des cellules encadrant la cellule avec le point aberrant.

En pièce joint le fichier, avec le graphique et les données.

En vous remerciant par avance.

Rémi

Bonjour et bienvenue sur le forum

Tu écris :

Est-il possible de créer une VBA permettant de trouver ses points aberrants et de les remplacer par la valeur équivalent à la moyenne des cellules encadrant la cellule avec le point aberrant.

C'est sûrement possible mais à condition d'avoir une définition précise de ce que tu entends part un "point aberrant".

A te relire

Bye !

Bonjour et merci

si on prend le fichier joint, sur le graphe on remarque facilement les points aberrant, ceux qui tirent le graphe vers le bas, au lieu d'avoir une courbe bien propre.

Par exemple on retrouve ca :

816,9849873 0,32474504

817,0527935 0,28366076

817,2128677 0,32287944

ligne 4625 le point aberrant est le 0.28366076

a+

Actuellement j'ai fait ceci comme code

Sub Foreachcell()
Dim MaCell As Range
Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets

sh.Activate

For Each MaCell In Range(Range("J8"), Range("J" & Columns("J").Rows.Count).End(xlUp))
If Abs((MaCell.Value - MaCell.Offset(-1, 0).Value)) > 0.001 Then MaCell.Value = (MaCell.Offset(-1, 0).Value + MaCell.Offset(1, 0).Value) / 2
Next MaCell

Next

End Sub

Ca marche pas trop mal

Tu écris :

...on remarque facilement les points aberrant...

Comme définition, on fait mieux !

Un essai avec un coeff qu'on peut faire varier.