Bonjour
Essaie ça :
Private Sub TextBox1_Change()
If TextBox2 <> "" Then
TextBox3 = Application.RoundUp(Val(TextBox1) / Val(TextBox2), 0)
End If
End Sub
Private Sub TextBox2_Change()
If TextBox1 <> "" Then
TextBox3 = Application.RoundUp(Val(TextBox1) / Val(TextBox2), 0)
End If
End Sub
Bye !