Discussion :

[guytri]

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 :

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
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!!!!!

[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 :

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

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,

[gFZT82]

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 :

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
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.

[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