Modification du code...

j = 4
LDeb1 = j
CDeb1 = 1
LFin1 = (j + N - 1)
CFin1 = 1
LDeb2 = j
CDeb2 = 2
LFin2 = (j + N - 1)
CFin2 = 2
Cells(2, 5).FormulaLocal = "=PENTE(Cells(LDeb2, CDeb2), Cells(LFin2, CFin2); Cells(LDeb1, CDeb1), Cells(LFin1, CFin1))"
Cells(2, 6).FormulaLocal = "=ORDONNEE.ORIGINE(Cells(LDeb2, CDeb2), Cells(LFin2, CFin2); Cells(LDeb1, CDeb1), Cells(LFin1, CFin1))"
Cells(2, 7).FormulaLocal = "=COEFFICIENT.DETERMINATION(Cells(LDeb2, CDeb2), Cells(LFin2, CFin2); Cells(LDeb1, CDeb1), Cells(LFin1, CFin1))"
a = Cells(2, 5)
b = Cells(2, 6)
r² = Cells(2, 7)

mais celà ne fonctionne toujours pas.
Quelqu'un svp

Tu ne peux pas utiliser des variables dans ton code entre guillemets.

Pour utiliser des fonctions de feuille de calcul directement sous VBA tu dois utiliser la fonction :
Application.WorksheetFunction.Sum
(Ici Sum pour la fonction Somme)

Si tu ne connais pas le nom de la fonction à utiliser, place toi sur ta cellule contenant ta formule et lance la macro :
MsgBox ActiveCell.Formula
Il traduira tout seul...

Bonjour,

Il vous faut une colonne index !

C'est a dire une colonne non-vide variable que vous n'avez pas besoin de connaitre,
les instructions VBA sont la pour ca !

Colonne Index A, en partant de la ligne 5 ( Si A1 a A4 sont non-vide, caracteres cachés, n'importe quoi)


Dim Plage As Range, Cellule As Range, Balise As Long

Balise = Range("A65536").End(xlUp).Row ' Cherche la premiere cellule non-vide en partant de la fin vers le haut

Set Plage = Range("A5:A" & Balise)

For Each Cellule In Plage
...MsgBox Cellule.Offset(0,0).Value ' L'option Offset permet un acces a toute la feuille
Next Cellule

Lupin

Donc en fait avec ça, il va dans un premier temps me chercher ma dernière ligne de ma colonne (que je ne connais pas donc) et ensuite il me prendra ma plage de donnée de la colonne dont je connais le début jusqu'à la fin.
ça m'a l'air pas mal comme truc. Et ça marche comme truc pour appliquer ma fonction: Application.WorksheetFunction.Slope(Y, X)?

Re :

en fait je ne connais pas l'instruction [ Slope ]

Application.WorksheetFunction.Slope(Y, X)

mais oui, on place cette instruction à la place du
...MsgBox Cellule ...

je jette un coup d'oeil sur le net pour me renseigner.

Lupin

Re :

alors voilà ce que ca donne :

Option Explicit
'

Sub CalculPentePourChaquePoint()

    Dim Plage As Range, Cellule As Range, Balise As Long
    Dim Plage1 As Range, Plage2 As Range, Resultat As Double

    ' Cherche la premiere cellule non-vide en partant de la fin vers le haut
    Balise = Range("A65536").End(xlUp).Row

    Set Plage = Range("A5:A" & Balise)

    For Each Cellule In Plage
        ' L'option Offset permet un acces a toute la feuille
        ' MsgBox Cellule.Offset(0, 0).Value
        Set Plage1 = Cellule.Offset(0, 2)
        Set Plage2 = Cellule.Offset(0, 3)
        Resultat = Application.WorksheetFunction.Slope(Plage1, Plage2)
        If (Resultat > 0) Then
            Cellule.Offset(0, 1).Value = Resultat
        End If
    Next Cellule

End Sub
'

Re:

afficher le résultat dans une cellule donnée ?

ou

insérer la formule dans une cellule donnée ?

Lupin