VB6

Elseif < 8104 ... qu'est ce qui doit être inférieur à 8104 ? Manque un bout entre elseif et <.

c'est elle qu'y bug

Elseif pr < 23096 Then impot = ((0.31*(pr-14264)+(0.21*(14 264-8 104))+((8104-4121)*0.075))*n

ok lol j'ai trouver merci je met pas encore répondu défois que j'ai un autre pb avec mon vb ce soir ok merci

elseif sa éxiste

j'ai mit sa pour remplacer le sinon si mais je c'est pas si c'est ok

voila tout mon code il bug a elsif

Option Explicit
Dim n As Integer
Dim r, pr, impot As String

Sub main()

r = InputBox("saisir revenu :")
n = InputBox("saisir nbr de part :")

pr = r / n

If pr < 4121 Then impot = 0
ElseIf pr < 8104 Then impot = (0.075 * (pr - 4121)) * n
ElseIf pr < 14264 Then impot = ((0.21 * (pr - 8104)) + ((8104 - 4121) - 0.075)) * n
ElseIf pr < 23096 Then impot = ((0.31 * (pr - 14264)) + (0.21 * (14264 - 8104)) + ((8104 - 4121) * 0.075)) * n

MsgBox ("le montant de l'impôt sur votre revenu")

End Sub

j'ai fait sa il me met erreur de compilation else sans le if

Option Explicit
Dim n As Integer
Dim r, pr, impot As String

Sub main()

r = InputBox("saisir revenu :")
n = InputBox("saisir nbr de part :")

pr = r / n

If pr < 4121 Then impot = 0
ElseIf pr < 8104 Then impot = (0.075 * (pr - 4121)) * n
ElseIf pr < 14264 Then impot = ((0.21 * (pr - 8104)) + ((8104 - 4121) - 0.075)) * n
ElseIf pr < 23096 Then impot = ((0.31 * (pr - 14264)) + (0.21 * (14264 - 8104)) + ((8104 - 4121) * 0.075)) * n

End If

MsgBox ("le montant de l'impôt sur votre revenu")

End Sub

Bonjour,

Essaies plutôt ça :

Dim n As Integer
Dim r, pr, impot As Double


r = InputBox("saisir revenu :")
n = InputBox("saisir nbr de part :")


pr = r / n

If pr < 4121 Then
    impot = 0
    ElseIf pr < 8104 Then
        impot = (0.075 * (pr - 4121)) * n
        ElseIf pr < 14264 Then
            impot = ((0.21 * (pr - 8104)) + ((8104 - 4121) - 0.075)) * n
                ElseIf pr < 23096 Then
                    impot = ((0.31 * (pr - 14264)) + (0.21 * (14264 - 8104)) + ((8104 - 4121) * 0.075)) * n

End If

MsgBox ("Montant de l'impôt sur votre revenu : " & impot)

Respecte les retours à la ligne après chaque "Then" ... lorsque c'est sur une même ligne, le compilateur interprète un End If. Par exemple :
If pr < 4121 Then impot = 0
Sera interpréter comme :
If pr < 4121 Then
impot = 0
End If

;o)

ok sa doit étre pour sa que sa plante je vais éssayer merci