HELP ! Ma macro VBA ne marche pas!

[cochondelait]

Bonjour tout le monde , je viens solliciter votre aide . Je suis une novice en ce qui concerne Excel et les macros VBA . J'ai un excercice qui consiste à écrire un programme de convertisseur de monnaie (4 monnaie de départ , 4 monnaies d'arrivée) . J'ai essayé et voila ce que j'ai pu écrire



Sub convertisseurdemonnaie()
Dim x As Double
Dim y As Double
Dim z As Double
x = InputBox(" quelle est votre monnaie de départ ? Pour l'Euro tapez 1 , pour le dollar US tapez 2 , , pour la Livre Sterling tapez 3 , pour le Franc suisse tapez 4 , ")
y = InputBox(" Quelle est votre monnaie d'arrivée ? Pour l'Euro tapez 1 , pour le dollar US tapez 2 , pour la Livre Sterling tapez 3 , pour le Franc suisse tapez 4 ")
z = InputBox(" Quelle est la somme à convertir ? ")

Select Case x

Case 1

If y = 2 Then
MsgBox (" Votre argent s'élève à USD " & z * 1.32521)
End If
If y = 3 Then
MsgBox (" Votre argent s'élève à £ " & z * 0.814909)
End If
If y = 4 Then
MsgBox (" Votre argent s'élève à CHF " & z * 1.30062)
End If
Case 2
If y = 1 Then
MsgBox (" Votre argent s'élève à € " & z * 0.7546)
End If
If y = 3 Then
MsgBox (" Votre argent s'élève à £ " & z * 0.614931)
End If
If y = 4 Then
MsgBox (" Votre argent s'élève à CHF " & z * 0.9068)
End If
Case x = 3
If y = 1 Then

MsgBox (" Votre argent s'élève à € " & z * 1.22713)
End If
If y = 2 Then
MsgBox (" Votre argent s'élève à USD " & z * 1.6262)
End If
If y = 4 Then
MsgBox (" Votre argent s'élève à CHF " & z * 1.47464)
End If
Case x = 4
If y = 1 Then
MsgBox (" Votre argent s'élève à € " & z * 0.832157)
End If
If y = 2 Then
MsgBox ( " Votre argent s'élève à USD " & z * 1,10278 )
End If
If y = 3 Then
MsgBox ( " Votre argent s'élève à £ "& z * 0,678132 )
End If
Case x = y
MsgBox (" Erreur ! Cette operation n'est pas prise en charge . ")
Case x>4
MsgBox (" Erreur ! Cette operation n'est pas prise en charge . ")
Case y > 4
MsgBox (" Erreur ! Cette operation n'est pas prise en charge . ")

End Select

End Sub





Je ne comprends pas pourquoi ces deux lignes d'instructions (en rouge ) sont incorrectes !

Merci de m'éclairer .
PS : N'hésiter pas à me faire part de vos critiques pour me permettre d'améliorer la rédaction de mon programme .

 

[Victor21]

Re : HELP ! Ma macro VBA ne marche pas!

Bonjour, et bienvenue sur XLD.

Un début de réponse ici

Edit : Bonsoir, Papou 🙂

 

[Papou-net]

Re : HELP ! Ma macro VBA ne marche pas!

Bonjour cochondelait, et bienvenue sur le site,

Sur les deux lignes rouges, tu as mis une virgule comme séparateur de décimale au lieu d'un point.

Cordialement.

PS : Bonjour Victor21

 

[cochondelait]

Re : HELP ! Ma macro VBA ne marche pas!

Merci à vous deux d'avoir pris de votre temps pour me répondre 😀
@Victor21 , je suis tombée sur la charte... Je l'ai lu .
@Papou-net : En effet , je viens de m'en rendre compte . Merci bien ! Je m'en vais me rectifier de suite 🙂 !