Unhappy Passage de la fonction DROITREG à la fonction LINEST

[ajui74]

Bonjour je suis entrain de reprendre une programmation sur Excel, et je n'arrive pas à comprendre le passage de (Sur Excel) :
=INDEX(DROITEREG(T12:AA12;T9:AA10);3)
=INDEX(DROITEREG(T12:AA12;T9:AA10);2)
=INDEX(DROITEREG(T12:AA12;T9:AA10);1)

à (sur VBA)

Range("Y62").Select
ActiveCell.FormulaR1C1 = _
"=INDEX(LINEST(R[-50]C[-5]:R[-50]C[-1],R[-53]C[-5]:R[-52]C[-1]),3)"
Range("Z62").Select
ActiveCell.FormulaR1C1 = _
"=INDEX(LINEST(R[-50]C[-6]:R[-50]C[-2],R[-53]C[-6]:R[-52]C[-2]),2)"
Range("AA62").Select
ActiveCell.FormulaR1C1 = _
"=INDEX(LINEST(R[-50]C[-7]:R[-50]C[-3],R[-53]C[-7]:R[-52]C[-3]),1)"

NB : Ces fonctions représentent la même chose sur Excel que sur VBA.
***************

 

[Modeste geedee]

Re : Unhappy Passage de la fonction DROITREG à la fonction LINEST

Bonsour®

il s'agit de la même formule ...
en référence Absolue Locale Fr
ActiveCell.FormulaLocal :
"=INDEX(DROITEREG(T12:AA12;T9:AA10);3)"

enréférence absolue US =
ActiveCell.Formula=
"=INDEX(LINEST(T12:AA12,T9:AA10),3)"

en notation L1C1 locale Fr
ActiveCell.FormulaR1C1Local =
"=INDEX(DROITEREG(L(-50)C(-5):L(-50)C(-1);L(-53)C(-5):L(-52)C(-1));3)"

en notation R1C1 US
ActiveCell.FormulaR1C1 =
"=INDEX(LINEST(R[-50]C[-5]:R[-50]C[-1],R[-53]C[-5]:R[-52]C[-1]),3)"


🙄
un petit bonus :

Function LireF(target, Optional notation As Integer)
    Select Case notation
        Case 2 ' absolue US
                'Cette propriété renvoie ou définit la formule de l'objet, en utilisant les références du style A1 dans la langue de la macro.
                LireF = "'" & target.Formula
        Case 3 ' relative  FR L1C1
                'Cette propriété renvoie ou définit la formule de l'objet, en utilisant les notations de style R1C1 dans la langue de l'utilisateur.
                LireF = "'" & target.FormulaR1C1Local
        Case 4 ' relative US R1C1
                'Cette propriété renvoie ou définit la formule de l'objet, en utilisant les notations de style R1C1 dans le langage de la macro.
                LireF = "'" & target.FormulaR1C1
        Case Else
                'Cette propriété renvoie ou définit la formule de l'objet, en utilisant les références du style A1 dans le langage de l'utilisateur.
                LireF = "'" & target.FormulaLocal
    End Select
End Function