boucle conditionnelle

[manudibango]

Bonjour a tous,

Je ne connais pas grand chose en vba :sick:

J'aimerai faire une boucle conditionnelle, soit :

- incrementer une valeur (IAT) a partir de -20 par pas de 0.001 jusqu'a ce qu'une condition soit remplie (Pclimdesirée=Pclimcalculéé+/- 1).

Cette boucle contient 4 solveurs. :woohoo:


Vous comprendrez mieux avec le fichier, est ce que c'est du domaine du réalisable ?

Merci Manu.

 

[BOBBY]

Envoies le moi a bobbyxls@gmail.com

A+

 

[manudibango]

inshala

[file name=bilan_20050618181526.zip size=12253]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/bilan_20050618181526.zip[/file]

 

[manudibango]

Je le compressais en .rar !! evidemment :whistle:

 

[MichelXld]

rebonjour

tu peux tester cette adaptation

Sub calcul()
Dim Resultat As Double, Ajout As Double

Do
Ajout = Ajout + 0.001

Resultat = Range('qclim') / 1000 * Range('cp') * ((Ajout + Range('dtaspievapo')) - _
Range('tsortieevapo')) + Range('qclim') / (1000) * Range('lv') * ((0.0003 * _
(Ajout + Range('dtaspievapo')) ^ 3 + 0.0065 * (Ajout + Range('dtaspievapo')) ^ 2 + _
0.3005 * (Ajout + Range('dtaspievapo')) + 3.6229) * Range('riat') - (0.0003 * _
Range('tsortieevapo') ^ 3 + 0.0065 * Range('tsortieevapo') ^ 2 + 0.3005 * _
Range('tsortieevapo')) * Range('rse'))

Loop While Resultat < Range('pclim')

Range('iat') = Ajout
End Sub

bonne soiree
MichelXld

 

[manudibango]

Ca marche pas :huh:
La résolution du bilan n'est pas si évidente que ca, c'est pour ca que je pensais passer par les solveurs dans vba :unsure:

 

[MichelXld]

rebonsoir

sans doute que je n'ai pas compris ta demande , mais tu peux tout de meme tester le classeur joint ...


bonne soiree
MichelXld [file name=Bilanv02.zip size=12975]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Bilanv02.zip[/file]

 

[manudibango]

Le truc c'est que cette boucle doit contenir 2 solveurs indispensable (les 2 premiers) permettant de calculer succesivement Tsortieevapo puis r%iat, ce n'est qu'à la suite de ces resolutions que la puissance Pclimcalculée est recalculé !

 

[manudibango]

:huh: