programme de calcul sur VBA excel

Version imprimable

Bonjour,
je voudrais réaliser un petit programme sur excel en utilisant VBA, mais j'y arrive vraiment pas.
Mon programme ayant pour but le calcul d'une vitesse d'écoulement minimum pour des perte de charge maximum, pour cela je doit d'abord calcul la vitesse maximum puis les pertes de charges correspondant à cette vitesse,puis les ajouter à mon calcul de vitesse obtenir une nouvelle vitesse calcul les perte de charge et recommencer jusqu'à ce que je tend vers une valeur de vitesse stable .
Pour cela j'ai réaliser ce code mais il ne fonctionne apparemment pas ( je ne m'y connais vraiment pas en VBA):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub troplein() Const E = 0.0000001 Dim i As Integer Dim Hr(1 To 50) As Currency, Hs(1 To 50) As Currency Dim V(1 To 50) As Currency Const g = 9.81 Const h = 6.896 Const L = 19.207 Const lambda = 0.02 Const di = 0.285 Do Hr(1) = 0 Hs(1) = 0 V(i) = Sqr(2 * g * h - Hr(i) - Hs(i)) Hr(i + 1) = (lambda * L * V(i) * V(i)) / (2 * di * g) Hs(i + 1) = (K * V(i) * V(i)) / (2 * g) Loop Until V(i) - V(i - 1) < E End Sub
si quelqu'un peut me venir en aide
Merci d'avance!!!!!

30/05/2012, 17h02
jackborogar

C'est normal tu déclare une variable "i" sans l'initialiser.
donc ton V(i) ne peut pas fonctionner ainsi que le reste.

De plus ton:

Code:

Loop Until V(i) - V(i - 1) < E

va poser problème puisque V(i-1) n'est pas calculé au départ.
Enfin peut-on voir ton théorème sur wikipédia ou autre plateforme?

Cordialement,

Bonjour,

1) La boucle avec i n’est pas incrémentée.
2) La constante K n’est pas initialisée, donc Hs est toujours nulle.
Dans le code, j’ai intégré un message qui te permettra de visualiser les résultats pas à pas.
J’ai initialisé K à 1.

Code:

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
Sub troplein()
Dim i As Integer
Dim Hr(1 To 50) As Double, Hs(1 To 50) As Double
Dim V(1 To 50) As Double
 
Const E = 0.0000001
Const g = 9.81
Const h = 6.896
Const L = 19.207
Const lambda = 0.02
Const di = 0.285
Const K = 1 'Constante non initialisée
 
    Hr(1) = 0
    Hs(1) = 0
    V(1) = Sqr(2 * g * h - Hr(1) - Hs(1))
    For i = 2 To 49
        V(i) = Sqr(2 * g * h - Hr(i) - Hs(i))
        Hr(i + 1) = (lambda * L * V(i) * V(i)) / (2 * di * g)
        Hs(i + 1) = (K * V(i) * V(i)) / (2 * g)
 
        'Message pour visualiser les résultats
        msg = "i : " & i & Chr(10) & _
        "Vitesse V(i): " & V(i) & Chr(10) & _
        "Vitesse V(i-1): " & V(i - 1) & Chr(10) & _
        "Hr(i + 1) : " & Hr(i + 1) & Chr(10) & _
        "Hs(i + 1): " & Hs(i + 1)
        If V(i) - V(i - 1) >= E Then
            msg = msg & Chr(10) & Chr(10) & "V(i) - V(i - 1) >= E"
        End If
        MsgBox msg
    Next
End Sub

Cordialement.

31/05/2012, 10h03
guytri

Merci jackborogar et gFZT82 pour vos aides. gFZT82 ton programme fonctionne parfaitement il y avait juste une petite erreur dans les condition que je souhaitait.
Cordialement