Bonjour à vous,

Voilà je m'adresse à vous pour un soucis en code VBA : calculer une intégrale de fonctions à l'aide de la méthode des trapèzes, voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function Inttrap(ByVal X As Range, ByVal Y As Range)
 
'Dimension du taleau pour le calcul intégral
L = X.Rows.Count
 
'initialisation
Dim t0 As Double
t0 = (X(1) - X(0)) * (Y(1) - Y(0)) / 2
 
'algo
Dim i As Long, ti As Double
For i = 1 To L
ti = ((X(i + 1) - X(i)) * (Y(i + 1) - Y(i)) / 2)
Inttrap = ti + t0
Next i
End Function
Voilà je suis nouveau en VBA et ça marche pas ... et je ne comprend pas si quelqu'un a une astuce bon après midi à vous