ARRONDIR à la dizaine inferieur

Bonsoir Forum

Bonsoir tout le monde

SVP je sollicite vos aide pour arrondir le resultat dans TextBox3 à la dizaine inferieur par exemple :

4.25 * 587 = 2494.75

J'aimerai bien avoir le resultat dans TextBox3 comme ça ( 2490 )

Private Sub TextBox1_Change()

TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)

End Sub

Private Sub TextBox2_Change()

TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)

End Sub

Merci beaucoup d'avance pour l'aide

Amicalement

ABIDINE

Bonjour

Essaie ce code :

Private Sub TextBox1_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = Val(Int(Val(TextBox1) * Val(TextBox2) / 10)) * 10
    End If
End Sub

Private Sub TextBox2_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = Val(Int(Val(TextBox1) * Val(TextBox2) / 10)) * 10
    End If
End Sub

Bye !

Bonsoir Gmb

Merci beaucoup beaucoup pour l'aide

C'est effectivement ce que je veux faire

Merci beaucoup Gmb pour votre aide

Tres cordialement

ABIDINE