je ne comprend pas le problème [Résolu]

[WomanPSG76]

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.

Code :

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

mon programme est bon jusqu'au moment où il doit faire le calcul. Apparement j'ai fait un test, et il ne calcule pas.

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é.

[Philippe JOCHMANS]

Bonjour

Revoie tes déclarations de variables

Code :

1
2
3
 Dim Reponse As Integer
  Dim Prixe As Currency
  Dim Prixf As Currency

Tu as mis string pour le premier alors que tu récupéres une valeur
Pour les prix tu les calculs en entier, alors que tu dois avoir des centimes.

Va jeter un coup d'oeil à ce tuto de SilkyRoad.

Starec

[WomanPSG76]

Merci pour ta réponse, je vais revoir mes déclarations de variables.

J'ai modifié les déclarations de mes variables mais il me dit toujours qu'il y a une erreur à la ligne 13

[alsimbad]

mais il me dit toujours qu'il y a une erreur à la ligne 13

pour cette erreur là, cela viens du + dans ta ligne

Code :

MsgBox ("cela fait en francs" + Prixf)

tu dois utiliser le &

Code :

MsgBox ("cela fait en francs" & Prixf)

[WomanPSG76]

Envoyé par alsimbad

pour cette erreur là, cela viens du + dans ta ligne

Code :

MsgBox ("cela fait en francs" + Prixf)

tu dois utiliser le &

Code :

MsgBox ("cela fait en francs" & Prixf)

Merci beaucoup, maintenant ça marche.

[Maxence HUBICHE]

Vachement lourd ton programme !
Tant de lignes pour si peu !

Essaie plutôt :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub TestInputBox()
    Dim Prixe As Currency
    Dim Prixf As Currency
    Select case Application.InputBox("Bonjour" & vbNewLine & _
        " Tapez 1 pour convertir de l'euro en francs" & vbNewLine & _
        " Tapez 2 pour convertir du francs en euro", Type:=1)
        Case 1
            Prixe = Application.InputBox("Entrez votre prix en euros", Type:=1)
            Prixf = Prixe / 6.55957
            MsgBox (prixe & " € =>" & Prixf & " FRF")
        Case 2
            Prixf = Application.InputBox("Entrez votre prix en francs", Type:=1)
            Prixe = Prixf * 6.55957
            MsgBox (Prixf & " FRF =>" & prixe & " €" )
        Case else
            'rien à faire... saisie incorrecte du code
    End Select
End Sub

les avantages :

1. Moins de variables, puisque tu testes directement le résultat de la première application.inputbox
2. Moins de boîtes de dialogues qui s'ouvrent partout (très amusant au début, mais tellement lourd à la fin !)
3. Application.Inputbox (bibliothèque VBA)de type 1 te permet d'être sûr(e) de récupérer un numérique, alors que InputBox te renvoie systématiquement un String
4. Le fait de typer correctement ta variable, avec le code que tu as fait (reponse=Integer) pose un souci qui se règle en variant puisque ton inputBox te renvoie un String. Donc, une belle conversion de type a lieu, si c'est possible. Mais si ce que tu écris dans ton inputbox n'est pas un nombre => Erreur