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 :
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 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
Il y a t'il un moyen pour contourner le problème ?
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
Merci pour votre aide toujours précieuse
Partager