Discussion :

[cufy59]

bonjour a ts
je viens de me lancer dans le VBA-E pour un stage de fin d'etude et g un peti probleme

g une fonction qui se nom "=IntegrDataC(x,y, [Degree])" qui est inclue dans un macro complementaire appele Xnumber que g trouve sur le net.
cette fonction permet d'integrer un nobre de point present dan un tableau
j'aimerain inclure cette fonction dans mon prgm seulement le debogage me dit " erreur de compilation sub ou fonction non definie"
voila la partie de mon prgrm :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub fourier()
nbrpoint
nbrharmonique
Set celA = Range("A2")
Set celB = Range("B2")
For j = 1 To nbrpt
    x(j) = celA.Offset(j)
    y(j) = celB.Offset(j)
Next j
veff² = IntegrDataC(x, y)
End Sub

comment dois-je faire pour cette fonction me calcul mon integral et me le place ds un autre tableau
(kan je tape directement la fonction dan un cellule celle ci fonctionne)

je vous remerci de vos reponses

[gruget]

Bonjour
Peux-tu montrer comment est définie ta fonction IntegrDataC car comme ca je ne vois pas de pb apparent
enfin je te conseillerais qd mm de bien définir toutes tes variables au début
tes tableaux x et y entre autres
rémi

[cufy59]

si je compren bientu voudre la macro de la fonction seulement je c pq ou la trouve

[gruget]

comment as-tu ajouté cette macro?
généralement on trouve les macros dans Module dans VisualBasicEditor
parcours tes modules (fais toi un petit Ctrl+f et selectionne projet en cours)

[cufy59]

g simplement fais un copier coller dans : C:\Documents and Settings\yfereire\Application Data\Microsoft\Macros complémentaires
puis je l'ai selectionner dans : outils\macrocomplementaire

g recherche dans VBE, dans les module de xnumber et g rien trouver

faut-il com en c inclure les fonction que l'on veu utiliser com celle que je veu utiliser ou une autre comme SOMME.CARRES par exemple?

[gruget]

Tu peux faire autrement mais je te conseillerais quand même de les inclure dans ton projet excel ca te simplifiera la tache
rémi

[cufy59]

je suis desole ouskel'n'or en effet je l'ignorai
(pour les accents je ne peux rien y faire car je suis actuelement au quebec et donc clavier QWERTY c'est pourquoi j'ai aussi tendance a inverser les a et les q )

[ouskel'n'or]

Pour te répondre, je suis de l'avis de gruget, et pour les inclure dans ton projet, regarde Addins dans l'aide, on explique ça très bien. Mais c'est en anglais

J'ai un fils qui était à Québec ce week-end, tu l'as pas vu ?

[cufy59]

merci pour vos reponse je vais voir ce que je peux faire.
pour votre fils il me semble l'avoir croise mais je ne suis pas tout a fait sur
encore merci

[cufy59]

voici la macro de IntegrDataC

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Function IntegrDataC(xi, yi, Optional degree)
Dim vy, vx, Nodes, si, nx&, ny&, i&, r, n&
Dim BX, By, h, s, j&
Dim Coeff_NC(), kd 'Newton-Cotes Coefficient,
LoadVector vy, yi, nx
LoadVector vx, xi, ny
If IsMissing(degree) Then degree = 1
Nodes = ny
'check nodes and integration degree
If degree + 1 > Nodes Then IntegrDataC = "?": Exit Function
'algorithm begins---------------------------------------------
si = 0
If degree = 1 Then
    For i = 2 To Nodes
        si = si + (vy(i) + vy(i - 1)) * (vx(i) - vx(i - 1))
    Next i
    si = si / 2
ElseIf degree > 1 Then
    r = (Nodes - 1) Mod degree
    n = Nodes
    If r > 0 Then n = Nodes + degree - r
    DataEquiSpace vx, vy, BX, By, n, h, degree
    Formula_Newon_Cotes_get kd, Coeff_NC, degree + 1
    For i = degree + 1 To n Step degree
        s = 0
        For j = 1 To degree + 1
            s = s + By(i - j + 1) * Coeff_NC(j)
        Next j
        si = si + h * s / kd
    Next i
 
End If
IntegrDataC = si
End Function

[gruget]

C'est quoi la fonction LoadVector?? elle est pas définit dans ton module???
sinon qd tu mes la formule dans une cellule tu fais référence à une plage de cellule??
auquel cas je vois pas trop pourquoi quand tu remplis ton tableau avant d'appeler ta fonction d'intégartion tu utilises des offset et pas plutôt des .value
comme ca juste à titre de remarque car j'ai pas trop cherché non plus à comprendre la fonction intégration (hehe la intégrations de fourier ct ya longtemps )
rémi