Forum
Sujet : macro
DébutPage précedente
1
Page suivantePage suivante
zeza27
MP
Niveau 10
10 décembre 2014 à 15:26:29
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
DébutPage précedente
1
Page suivantePage suivante
Répondre
Infos 0 connecté(s)