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

Bistrakou a écrit :

Je vous ai mis un exemple de données en pièces jointes.

Il est vrai qu'avec une pièce jointe ce serait mieux !

Mais de pièce jointe, je ne vois point ....

Bye !

Désolée

20example.xlsm (264.51 Ko)

Bonjour

Bistrakou a écrit :

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.

Désolé mais je ne comprends pas ce que tu veux dire.

Essaie d'être plus clair.

Bye !

Bonsoir,

Le Ymax correspond à 100% et ensuite on soit copier jusqu'à 30% du ymax dans une autre colonne mais copier la partie x et y. C'est plus clair ?

Merci d'avance pour votre aide,

Bistrakou

Rechercher des sujets similaires à "selection donnees allant 100 copier"