Sélection de données allant de 100% à 30% et copier

Bonjour,

Je vous explique mon problème :

J'obtiens des données correspondant à une charge et à une décharge. Et je souhaite sélectionner dans la partie décharge 100% de la force max jusqu'à 30%. Sachant que d'un essai à l'autre la force max peut changer.

Je vous ai mis un exemple de données en pièces jointes. J'avais essayé de cette manière mais sans succès ...

Sub Courbe_decharge()

'

Nbdata = Application.WorksheetFunction.Count(Sheets("Calculation").Range("B3:B1048576"))

debut = 3

fin = Nbdata + debut - 1

cell_courante = Cells(fin, 2)

ligne = fin

Do While cell_courante <= Cells(ligne - 1, 2) And ligne - 1 > debut

ligne = ligne - 1

cell_courante = Cells(ligne, 2)

Loop

For i = 1 To Nbdata + debut - ligne

With Sheets("Calculation")

.Cells(debut + i - 1, 7) = .Cells(ligne + i - 1, 2)

.Cells(debut + i - 1, 8) = .Cells(ligne + i - 1, 3)

End With

Next i

End Sub

Merci d'avance,

En espérant avoir votre aide

Bonjour,

si j'ai bien compris,

Sub Courbe_decharge()
'
    nbdata = Cells(Rows.Count, 3).End(xlUp).Row

    Set plage = Range(Cells(3, 3), Cells(nbdata, 3))
    Maxd = Application.Max(plage) ' on determine le maximum de charge
    l = 2
    For Each c In plage
        If c >= Maxd * 0.3 Then 'on prend toutes les valeurs > 30% de la charge maximum
            l = l + 1
            Cells(l, "H") = c
            Cells(l, "G") = c.Offset(0, -1)
        End If
    Next c
End Sub