Discussion :

[chouchouboy]

J'ai écrit ça et ça ne marche pas... je ne sais pas pourquoi, pourriez vous m'aider !
Merci

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
Sub MontantTVA()
'contantes
Const TVA1=0.196 
Const TVA2=0.055
'variables
Dim compte
Dim montHT
Dim montTVA
'boites de dialogues
compte = InputBox("Saisir le numéro du compte")
montHT = InputBox("Saisir le montant HT")
'conditions
If compte=445661 then
montTVA = montHT*TVA1
Else montTVA = montHT*TVA2
'affichage de la réponse
MsgBox ("Le montant de la TVA est de :" &montTVA)
End If
End Sub

[SfJ5Rpw8]

comment exécute tu ce code ..? c'est quoi qui ne marche pas ..?