le résultat est tjrs 0...Que faire?Résolu

Question

Bonjour,
Je poste ma question dans cette partie du forum en &#233;sp&#233;rant que c'est la bonne.

Le probl&#232;me :

Sur une "From1"  je place 3 TextBox ; 1 bouton de commande et 1 Label afin d'y aficher le r&#233;sultat. Jusqu'&#224; la pas de probl&#232;me. 
Ensuite sur mon bouton je place le code suivant :

Private Sub Command1_Click()
On Error Resume Next
Text1.Text = Val(Text1.Text)
Text2.Text = Val(Text2.Text)
Text3.Text = Val(Text3.Text)


If Text1.Text = 0 Then
MsgBox "Entrez des valeurs dans les cases"
Else: Label1.Caption = "la r&#233;ponse est " & Round(Text1.Text / 3600 / Text2.Text / Text3.Text) & ""
End If


End Sub

Mais la r&#233;ponse est toujours 0 en entrant des valeurs dans les 3 TextBox. 
D'o&#249; peux venir le probl&#232;me

Merci d'avance pour vos r&#233;ponses.A bient&#244;t

tztr

cs_casy · Accepted Answer

Tu n'as pas spécifier le nombre de décimale à retourner par ta fonction Round, donc tout résultatsera arrondi à un entier, et tout résultat <0.5 te donnera 0. essaye avec ça pour 4 décimale par exemple : Round(Text1.Text / 3600 / Text2.Text / Text3.Text , 4)

Gobillot · Answer

avec toutes ces divisions, le r&#233;sultat doit &#234;tre assez petit.

et avec le Round, en dessous de 0.5 il passe &#224; z&#233;ro.


absence de chiffres apr&#232;s la virgule --> par d&#233;faut est &#233;gal &#224; z&#233;ro.




Daniel

tztr · Answer

Merci beaucoup Casy, j'arrive enfin &#224; un r&#233;sultat coh&#233;rent.

Bonne fin de soir&#233;e et surtout bonne f&#234;te de fin d'ann&#233;e.

jpleroisse · Answer

Bonsoir,

Voil&#224; ton code modifi&#233;.



Private Sub Command1_Click()

If Text1.Text = "" Then

MsgBox "Entrez des valeurs dans les cases"

Text1.SetFocus

Else: Label1.Caption = "la r&#233;ponse est " & Round((Val(Text1.Text) / 3600)) / Val(Text2.Text) / Val(Text3.Text)

End If

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Renfield · Answer

en voila un qui ne craint pas les divisions par 0 ^^

tztr · Answer

Bonsoir JpLeroisse apr&#232;s avoir tester ton code avec par exemple "A" j'obtiens une erreure, mais merci quand-m&#234;me d'avoir pri la peine de te pencher sur ce petit probl&#232;me.

Je vais donc rester sur la premi&#232;re solution qui me semble convenir &#224; l'utilisation que je veux en faire.

Merci encore &#224; tous , c'est vraiment simpa l'aide que vous m'avez fourni et surtout en si peux de temps!

Le résultat est tjrs 0...Que faire?

6 réponses

Discussions similaires