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