Discussion :

[benoit.r]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If A>B Then
msgbox "A>B"
End if

Merci d'avance

[AnneCa]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ThierryAIM]

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 !

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

[AnneCa]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[ThierryAIM]

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

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

Ca, par contre c'est judicieux

Parce que avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim A
Dim B
A = 0
B = Box_B

il va y avoir des couacs !! (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

[benoit.r]

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.