Private Sub List1_Click() If List1.Text = -0.7 Then Text2.Text = Format(CCur(Text3.Text) * (-0.7), "0.00") End If If List1.Text = -0.8 Then Text2.Text = Format(CCur(Text3.Text) * (-0.8), "0.00") End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Command1_Click() If List1.Text = "-0.7" Then Text2.Text = Format(CCur(Text1.Text) * (-0.7), "0.00") End If If List1.Text = "-0.8" Then Text2.Text = Format(CCur(Text1.Text) * (-0.8), "0.00") End If End Sub