gerardd3617
XLDnaute Occasionnel
bonsoir à tous
je n' arrive pas à multiplier une optionbutton avec un textbox.
cordialement
je n' arrive pas à multiplier une optionbutton avec un textbox.
cordialement
Me.TextBox1.Value = (CDbl(Me.OptionButton1) * CDbl(Me.ComboBox1))
Me.TextBox1.Value = (CDbl(Replace(Me.OptionButton1.Caption, ".", ",")) * CDbl(Me.ComboBox1))
Me.TextBox1.Value = (CDbl(Replace(Me.OptionButton1.Caption, ".", ",")) * IIf(Me.Combobox1, CDbl(Me.ComboBox1), CDbl(Me.ComboBox2))
Sub totalise()
On Error Resume Next
Me.TextBox1.Value = Me.ComboBox1.Value * IIf(Me.OptionButton1.Value, Me.OptionButton1.Caption, Me.OptionButton2.Caption)
End Sub
Private Sub OptionButton1_Change()
TextBox1 = ComboBox1 * IIf(OptionButton1, 5.7, 9.5)
End Sub
Private Sub OptionButton2_Change()
TextBox1 = ComboBox1 * IIf(OptionButton1, 5.7, 9.5)
End Sub
Private Sub ComboBox1_Change()
TextBox1 = ComboBox1 * IIf(OptionButton1, 5.7, 9.5)
End Sub