Private Sub ComboBox1_Change()
If IsNumeric(Me.ComboBox1) Then Me.TextBox2 = CDbl(Me.TextBox3) / CDbl(Me.ComboBox1)
End Sub
Private Sub CommandButton3_Click() 'ok
Range("Feuil1!G11") = CDbl(Me.ComboBox1)
Range("Feuil1!H11") = CDbl(Me.TextBox2)
End Sub
Private Sub CommandButton4_Click() 'annuler
Unload Me
End Sub
Private Sub UserForm_Initialize()
Me.TextBox3 = Range("Feuil1!D11")
Me.ComboBox1.AddItem 125
Me.ComboBox1.AddItem 250
Me.ComboBox1.AddItem 500
Me.ComboBox1.AddItem 1000
End Sub