Discussion :

[kubuntu_user]

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

[pc75]

Bonjour,

Pour ton problème de virgule, as-tu essayé d'utiliser la fonction Replace() ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
montant = Replace(montant, ",", ".")

[kubuntu_user]

Bonjour,

Ca ne fonctionne pas, on dirait qu'il ne prends pas le code.

Par contre je ne sais pas pourquoi pour des sommes inférieur à 30 € il ne me calcul pas d'escompte.

[Jean-Philippe André]

salut,
outre l'aspect évoqué par pc75 du Replace, en changeant le type de variable montant en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim montant As Variant

tu peux caster la valeur après avoir changer les éventuels , en .