Bonjour,

J'essai de faire un code simple pour une collègue, mais celui ci refuse les virgules lorsque l'utilisateur mets une "virgule" lors de la saisie de son chiffre.

Voici le code.

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
Sub Calcul_escompte()
 
Dim escompte As Long
Dim montant As Long
Dim total As Long
Dim francs As Long
Dim escompte1 As Long
 
 
montant = InputBox("Veuillez entrer le montant TOTAL de votre remise pour obtenir votre escompte")
 
 
    escompte1 = 0.98
    escompte = (montant * 0.98)
    total = montant - escompte
    francs = 6.55957
 
 
    MsgBox "L'escompte est de " & total & " € " & "soit " & (francs * total) & " Francs"
 
 
End Sub

Quelqu'un peut m'aider (je précise que j'apprends le VBA..)




Autre chose pourquoi celui ci me mets "0" euro en escompte lorsqu il s'agit de montant inférieur à 30 €


Merci