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 :
Voilà je suis nouveau en VBA et ça marche pas ... et je ne comprend pas si quelqu'un a une astuce
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 Functionbon après midi à vous
Partager