Macro pente

Bonsoir je vais essayer d'être le plus claire possible

j'ai plusieurs fichiers avec chacun des valeurs différentes mais toujours structuré de la même manière :

Dans ce cas précis la pente que je souhaite calculer est : =PENTE(B41:B69;A41:A69), avec B la colonne de l'effort et A la colonne de déplacement.

Sauf que les cellules avec lesquels je souhaite calculer la pente (ici B41:B69;A41:A69) ne sont pas forcement les même entre les différents fichiers, cela peut être entre B15:B55 et A15:A55 par exemple.

En effet je veux calculer la pente seulement entre 20 et 50 Newton (valeur de la colonne B) avec le déplacement correspondant, l'afficher dans n'importe quel cellule de la colonne D par exemple D19, et ceci pour chaque fichier afin d'insérer cette valeur ( la rigidité en réalité) dans un fichier récapitulatif que j'ai créé précédemment a l'aide d'une macro.

Toutes pistes sont les bienvenues

bonsoir

avec un fichier test cela aurait ete plus simple

a tester et voir les conditions d'enregistrement du debut et fin de tableau en fonction que si vous souhaitez > 20 ou >=20,.... parreil pour <50 et <= 50...

fred

Merci fred ça marche nickel !

Juste eu besoin d'adapter la valeur de l'incrémentation de départ,.

Voilà le code si ca peut aider qq'un d'autre :

Dim j As Integer
Dim debut, fin As Integer
For j = 26 To Sheets(1).Range("A65536").End(xlUp).Row
    If debut = 0 Then
        If Range("B" & j).Value > 20 Then debut = j
    Else
        If Range("B" & j).Value > 50 Then
        fin = j - 1
        Exit For
    End If
    End If
Next j

Range("D19").FormulaLocal = "=pente(B" & debut & ":B" & fin & ";A" & debut & ":A" & fin & ")"