Menu

Problème boucle WHILE [Résolu/Fermé]

Maeva83600 - 26 nov. 2016 à 11:07 - Dernière réponse :  Maeva83600
- 26 nov. 2016 à 12:18
Bonjour,

J'essais actuellement de faire un programme me donner le temps de chauffe de l'eau lorsque j'impose la température initiale (20°C) et finale (60°C).

Mon programme marche avec une boucle normal mais j'aimerai le faire arrêter lorsque T=60°C, je ne comprends pas où j'ai une erreur.

Pouvez-vous m'aidez ?

Voilla ma boucle qui marche suivit de mon essai avec la boucle while :

'For i = 1 To 1000
'Pperdu = Up * (Teauav - Tamb)
'Range("F" & i + 3).Value = i + 19
'Range("G" & i + 3).Value = Pperdu
'Teauap = Teauav + (deltat / mcp) * (-Pperdu + Pelec)
'next

i = 1
Do While Teauap = 60

Pperdu = Up * (Teauav - Tamb)
Range("F" & i + 3).Value = i + 19
Range("G" & i + 3).Value = Pperdu
Teauap = Teauav + (deltat / mcp) * (-Pperdu + Pelec)

Range("F" & i + 3).Value = i * deltat
Range("G" & i + 3).Value = Teauap

Teauav = Teauap
i = i + 1
Loop

Merci d'avance
Afficher la suite 

2 réponses

f894009 12694 Messages postés dimanche 25 novembre 2007Date d'inscription 16 février 2018 Dernière intervention - 26 nov. 2016 à 11:15
+1
Utile
1
Bonjour,
votre code
Do While Teauap = 60

Faire tant que Teauap = 60

ce qu'il faut
Do While Teauap <= 60

Faire tant que Teauap <= 60
Cette réponse vous a-t-elle aidé ?  
Merci beaucoup !!! je ne comprenais pas pourquoi cette boucle si simple ne marchait pas.
Bonne journée a vous