je viens tout juste d'essayer de comprendre le VBA.
Je dois faire un programme pour mon cours. Je dois convertir de l'euro en francs et du francs en euro.
mon programme est bon jusqu'au moment où il doit faire le calcul. Apparement j'ai fait un test, et il ne calcule pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Voici mon programme: Sub TestInputBox() Dim Reponse As String Dim Prixe As Integer Dim Prixf As Integer MsgBox ("Bonjour") MsgBox ("1 Convertir de l'euro en francs") MsgBox ("2 Convertir du francs en euro") Reponse = InputBox("Entrez votre choix") MsgBox Reponse If Reponse = 1 Then Prixe = InputBox("Entrez votre prix en euros") MsgBox Prixe Prixf = Prixe / 6.55957 MsgBox ("cela fait en francs" + Prixf) Else Prixf = InputBox("Entrez votre prix en francs") MsgBox Prixf Prixe = Prixf * 6.55957 MsgBox ("cela fait en euros" + Prixe) End If End Sub
Pourriez vous me dire si j'ai fait une erreur en écrivant mon programme car je ne vois pas où est mon erreur.
Merci beaucoup pour toutes les réponses que vous pourrez m'apporter. Désolé si un topic existait déjà à ce sujet, je ne l'ai pas trouvé.
Partager