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

Signaler
-
 Maeva83600 -
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

1 réponse

Messages postés
15729
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 avril 2021
1 481
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Merci beaucoup !!! je ne comprenais pas pourquoi cette boucle si simple ne marchait pas.
Bonne journée a vous