Problème avec DROITEREG

Bonjour le forum !

j'ai un léger soucis avec le code ci-dessous :

Dim stress As Range
    Dim strain As Range
    Set stress = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
    MsgBox ("oh you are here O_o you chose the span " & stress.Address)
    Set strain = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
    MsgBox ("oh it's you again O_o you chose the span " & strain.Address)
    Range("D3").FormulaLocal = "=DROITEREG(stress,strain,TRUE,TRUE)"

Je ne comprends pas pourquoi ma dernière ligne ne marche pas. Je sais qu'il faut mettre une cellule ou une plage de cellules mais c'est déjà fait normalement au niveau des lignes " Set stress" et "Set strain". Je sèche un peu là, du coup je viens solliciter votre aide.

Cordialement,

Bonjour,

Essaie comme cela :

Dim stress As Range, strain As Range
    Set stress = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
    MsgBox ("oh you are here O_o you chose the span " & stress.Address)
    Set strain = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
    MsgBox ("oh it's you again O_o you chose the span " & strain.Address)
    Range("D3").Formula = "=LINEST(" & stress.Address(0, 0) & "," & strain.Address(0, 0) & ",TRUE,TRUE)"

A+

Salut ! merci beaucoup ! ça marche super bien !

Du coup tu pourrais m'expliquer ou pas où était mon erreur ?

j'ai parlé trop vite ><. Ca ne m'affiche que la pente et pas le reste :S

C'est bizarre pourtant les conditions sont toutes sur "TRUE"

Bonjour,

Essaie une formule du type :

Range("D3:E3").FormulaArray= "=LINEST(" & stress.Address(0, 0) & "," & strain.Address(0, 0) & ",TRUE,TRUE)"

A+

Perfect ! merci