Sub conversion()
Dim Nombre1 As Double
Nombre1 = InputBox("valeur a transformer")
Nombre2 = InputBox("a convertir en $ ou € ")
Select Case Nombre2
Case Is = "$"
MsgBox Dollars(Nombre1)
Case Is = "€"
MsgBox euros(Nombre1)
Case Else
MsgBox "impossible"
End Select
End Sub
Function Dollars(Nombre1 As Double)
Dollars = Nombre1 * 1.3
End Function
Function euros(Nombre1 As Double)
euros = Nombre1 / 1.3
End Function
