Comparaison de variables dans boucles

Bonjour,

je suis débutant en VBA, et j'ai quelques soucis dans la création d'un programe de simulation.

Dans ce programme il est nécessaire de définir un nombre de boucle bien définit, qui va conditionner la durée de la simulation. "Au bout de x boucles, arrêt de la simulation" (avec x définit par une variable)

Or je n'arrive pas à imposer à une boucle do.., ou for.. une variable à atteindre pour s'arrêter.

Pourriez vous m'aider ?

Ex conceptuel de la boucle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Test_button_Click()   Dim A Dim B   A = 0 B = Box_B   Do until A > B   A = A + 1   Loop MsgBox "Fin de la simulation" End Sub

---

J'ai le même soucis avec les boucles conditionnelles.. Cela marche très bien lorsque je mets une condition variable vs nombre , mais je n'arrive pas à réaliser ma condition variable vs variable. Sachant que ces varaibles sont rattachées à des valeurs dans les text_box

Code:

---

1 2 3

If A>B Then msgbox "A>B" End if

---

Merci d'avance

Salut,

Tu ne rentres jamais dans la boucle parce que A>B où A=0 ne va pas être vraie très souvent (pour pas dire jamais). Si tu changes > par < comme ci-dessous, ça devrait aller mieux.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Test_button_Click() Dim A Dim B A = 0 B = Box_B   Do until A < B A = A + 1 Loop MsgBox "Fin de la simulation" End Sub

---

Ce n'était donc pas un problème VBA, mais une question de logique on dirait

Citation:

---

Envoyé par AnneCa

Tu ne rentres jamais dans la boucle parce que A>B où A=0 ne va pas être vraie très souvent (pour pas dire jamais). Si tu changes > par < comme ci-dessous, ça devrait aller mieux.

---

avec un Do Until A<B, je doute que ce soit beaucoup mieux ! :aie:

MAis peut-être qu'avec un Do While .... ;)

ooooh, la honte :oops:!! Merci thierryAim d'avoir relu mon commentaire.

benoit.r, voici une correction (soufflée par Thierry).

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Test_button_Click() Dim A Dim B A = 0 B = Box_B debug.print B Do While A < B A = A + 1 Loop MsgBox "Fin de la simulation" End Sub

---

Dans ton premier message, tu disais avoir des soucis avec variable vs variable. Es-tu certain que A et B sont tous les 2 numériques?

la honte n'a jamais tué personne ! :mouarf:
(sinon, je serais mort depuis longtemps ;))

Citation:

---

Envoyé par AnneCa

Es-tu certain que A et B sont tous les 2 numériques?

---

Ca, par contre c'est judicieux ;)

Parce que avec ça :

Code:

---

1 2 3 4

Dim A Dim B A = 0 B = Box_B

---

il va y avoir des couacs !! :mouarf: (car je pense bien que B = Box_B est le contenu d'un TextBox, la propriété Text étant celle par défaut, sauf que c'est une String !)

Mais j'attendais la suite des tests de benoit ;)

dsl pour la logique, effectivement je me suis trompé dans mon exemple...

Merci de m'avoir mis sur la voie pour la déclaration des variables "as string", çà marche correctement désormais.


Merci pour vos réponses rapides.

J'ai aussi une autre question au sujet de la duplication d'un code en fonction d'une variable, mais je vais reposter un autre post à ce sujet.