Retenir uniquement les valeurs des pics sur une courbe ondulatoire

Bonjour à toutes et tous,

Une feuille de calcul comporte une chronique de hauteur d'une nappe d'eau.

La courbe représentative est ondulatoire, mais pas avec un pas régulier.

Je recherche une macro qui ne retiendrait que les valeurs de crête de chaque ondulation.

Je vous joins la feuille en question, merci pour votre aide.

Bonjour,

Sans macro avec une formule dans le colonne C par exemple (en C2)

=SI(B2=MAX($B$2:$B3);B2;NA())

Bonjour,

Une autre piste avec VBA :

Sub Test()

    Dim Plage As Range
    Dim Tbl() As Double
    Dim Max As Double
    Dim I As Long
    Dim J As Integer

    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp)): End With

    For I = 2 To Plage.Count

        If Plage(I).Value > Plage(I - 1).Value Then

            If Max < Plage(I).Value Then Max = Plage(I).Value

        Else

            If Max = Plage(I - 1).Value Then

                'si on amorce la phase de descente, mémorise le pic dans le tableau
                J = J + 1: ReDim Preserve Tbl(1 To J)
                Tbl(J) = Max
                'et colore la cellule en rouge
                Plage(I - 1).Interior.ColorIndex = 3

                Max = 0

            End If

        End If

    Next I

    'inscrit les valeurs en colonne C
    Cells(1, 3).Value = "Pics (m)"
    For I = 1 To UBound(Tbl())

        Cells(I + 1, 3).Value = Tbl(I)

    Next I

End Sub

Bonjour,

Un exemple sans VBA.

Cdlt.

Bonjour à tous

Ma participation dominicale ...

Bye !

Parfait, merci à tous et bon dimanche

Rechercher des sujets similaires à "retenir uniquement valeurs pics courbe ondulatoire"