Discussion :

[dmoluc]

Bonjour à tous,

Grace à l'aide du forum j'ai évoluer un peu en VBA et j'ai décider de passer à Visual basic 6, mais j'ai un petit soucis de calcul que j'arrivais à résoudre sur une feuille excel mais pas avec 2 textbox sous vb6
voilà mon premier code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Text49_Change()
 
If Me.Text50.Text = "" Then
MsgBox "Veuillez déterminer une densité !"
Else
Me.Text48.Text = Round(CDbl(Me.Text49.Text) / 100 * CDbl(Me.Text50.Text) * 1000)
End If
 
End Sub

le calcul fonctionne parfaitement mais je voudrais aussi faire l'inverse ; c'est à dire que si la textbox49 est vide, je la calcul à l'aide de la 48 et bien sur ça bug

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Text48_Change()
 
If Me.Text50.Text = "" Then
MsgBox "Veuillez déterminer une densité !"
Else
Me.Text49.Text = Round(CDbl(Me.Text48.Text) / CDbl(Me.Text50.Text))
End If
 
 
End Sub

Il y a t'il un moyen pour contourner le problème ?

Merci pour votre aide toujours précieuse

[Jean-Marie Grave]

Bonjour dmoluc.

Vous créez une boucle infinie et non pas un référence circulaire. Il vous faut donc la rendre finie par un test de fin de boucle, test qu'il vous appartient de définir d'après la logique de votre cahier des charges. Par ailleurs, ce n'est absolument pas une question de langage de programmation.

Cordialement.

[dmoluc]

J'ai simplement rajouté une condition et ça fonctionne, j'aurai du y penser plus tôt

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Text49_Change()
 
If Me.Text50.Text = "" Then
MsgBox "Veuillez déterminer une densité !"
ElseIf Me.Text48.Text = "" Then
Me.Text48.Text = Round(CDbl(Me.Text49.Text) / 100 * CDbl(Me.Text50.Text) * 1000)
End If
 
End Sub