Discussion :

[ankoubzh]

Bonjour,
Je cherche à programmer sous VBA l'équivalent d'une worksheet avec formules, et je ne parviens pas à trouver l'équivalent des fonctions LINEST et INDEX sous VBA...
Existe-t-il un moyen "propre", ou dois-je nécessairement passer la worksheet et des formules ?
Merci !

[LeForestier]

Bonjour,
Explique un peu mieux Svp, Montre la/les formules que tu veux traduire en VBA
A+

[ankoubzh]

les formules sont LINEST et INDEX
LINEST prend notamment en argument une liste d'abcisses et d'ordonnées correspondantes (une fonction!) et calcule une estimation de la fonction affine approchant la fonction. Elle renvoie une matrice définissant cette droite affine
INDEX prend cette matrice en argument, ainsi qu'un numéro de ligne et de colonne, et extrait la valeur (ligne,colonne) de la matrice

[LeForestier]

pour Index tu peu employer la formule...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

a = Application.WorksheetFunction.Index([B4:H22], 3, 3)

Tu peu aussi faire la fonction en VBA...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function VBA_Index(Plage As Range, Lig As Long, Col As Long) As Variant
    VBA_Index = Cells(Plage.Row, Plage.Column).Offset(Lig, Col)
End Function
'L'appel devient alors,
Sub Test
    a = VBA_Index([Feuil1!B4:H22], 3, 3)
End Sub

Même chose pour LINEST mais je n'ai pas cette fonction.
A+

[SilkyRoad]

Bonjour,

Tu trouveras dans ce lien un exemple qui utilise la fonction LINEST :
http://www.developpez.net/forums/d37...el/pb-matrice/

bonne journée
michel