Mise à jour de mon programme VBA

Salut à tous les participants,

En faite j'ai un probleme avec un programme que je voulais mettre a jour mais la fonction que j'utilise, ne reponds pas... C'est pour cette raison que je demande de l'aide à tous les participants. Voici le programme que je voulais mettre à jour:

10 Print "integral"

20 Print "ynesla"

30 Input a, b, E

40 Print "a"; a, "b"; b

50 Let I1 = 0

60 Let N = 10

70 Let H = (b - a) / N

80 Let S = 0

90 Let X = a + H / 2

100 For k = 1 To N

110 Let S = S + Exp(Sin(3 * X))

120 Let X = X + H

130 Next k

140 Let I2 = H * S

150 Let D = I2 - I1

160 Print "I"; N; "="; I2, "D"; D

170 If Abs(D) <= E Then GoTo 210

180 Let N = 2 * N

190 Let I1 = I2

200 GoTo 70

210 Print "E="; E

220 End

En faite, le programme ne marche pas et avec la fonction goto j'ai des problèmes à l'utiliser.

A l'attente d'une réponse je remercie tous ceux qui m'aideront à voir clair.

Merci d'avance!!!

Salut et bienvenue sur le Forum,

Je n'ai jamais vu de tels codes N'est-ce pas ces anciennes macros Excel que l'on utilisait jusque dans les années 1950-1960 ? Ou n'est-ce carrément pas un code Excel ?

Quoi qu'il en soit, sans avoir un fichier de ta part et des explications plus complètes, je présume que personne ne pourra t'aider.

Cordialement.

Voila c'est la meme idee que j'ai eu. En faite le sujet se rapporte a la resolution des integrales de ce type: integrale f(x)=exp(sin3*X)) dX bornee de a=0 et b=2 avec e=0.003. Voici le programme que j'ai ecris:

Sub integral()

Dim a As Integer

Dim b As Integer

Dim e

a = InputBox("enter value a")

b = InputBox("enter value b")

e = 0.003

I1 = 0

N = 10

H = (b - a) / N (c'est le niveau 10)

S = 0

X = a + H / 2

For K = 1 To N

S = S + Exp(Sin(3 * X))

X = X + H

Next K

I2 = H * S

F = I2 - I1

If Abs(F) <= e Then GoTo 23

N = 2 * N

I1 = I2

GoTo 10

MsgBox (F) (c'est le niveau 23)

End Sub

au faite les valeurs 10 et 23 represente les niveaux auquels les valeurs doivent se retourner si la condition n'est pas verifiée ou est verifiee

Merci d'avance!!!

bonjour,

code adapté à VBA

Sub integral()

MsgBox "integral" & vbCrLf & "ynesla"
 a = InputBox("valeur de a")
 b = InputBox("valeur de b")
 e = InputBox("valeur de e")
MsgBox "a " & a & vbTab & "b " & b
I1 = 0
N = 10
Do
 H = (b - a) / N
 S = 0
 X = a + H / 2
 For k = 1 To N
 S = S + Exp(Sin(3 * X))
 X = X + H
 Next k
 I2 = H * S
 D = I2 - I1
 MsgBox "I " & N & " = " & I2 & vbTab & "D " & D
 If Abs(D) <= e Then Exit Do
 N = 2 * N
 I1 = I2
Loop

MsgBox "E=" & " " & e
End

merci !!!