VB6

gag -
gag - 8 nov. 2008 à 19:33

Bonjour,
slt voila j'ai un pb dans vb 6 il me dit que cette ligne et fausse et je sait pas pk pouvais vous m'aider svp merci

Elseif < 8104 Then impot <- (0.075 ( pr-4121))*n
Elseif < 14 264 then impot <- ((0.21( pr-8104))+((8104-4121)-0.075))*n
Elseif < 23 096 then impot <- ((0.31( pr-14 264)+(0.21(14 264-8 104))+((8 104-4 121)*0.075))*n

sur le < il me dit erreur de compilation attendu expression

Afficher la suite

A voir également:

8 réponses

Réponse 1 / 8

HostOfSeraphim Messages postés 6750 Date d'inscription Statut Contributeur Dernière intervention 1 608

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

gag

a oui lol j'ai oublier un truc lol

sinon il me met un pb avec mes parenthése normale???

HostOfSeraphim Messages postés 6750 Date d'inscription Statut Contributeur Dernière intervention 1 608 > gag

Oui, regarde la 3e ligne ; tu as 7 parenthèses ouvrantes, 6 fermantes : tu en as forcément oublié une.

Réponse 2 / 8

gag

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

Réponse 3 / 8

gag

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

Réponse 4 / 8

gag

elseif sa éxiste

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

gag

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

HostOfSeraphim Messages postés 6750 Date d'inscription Statut Contributeur Dernière intervention 1 608

Manque un "End If" pour finir la structure If.

Réponse 6 / 8

gag

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

Réponse 7 / 8

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

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)

Réponse 8 / 8

gag

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

Discussions similaires

[Visual Basic 6 portable]Créer exécutable

Programmer le Timer en Visual Basic 6.0

Compatibilité VB6 et Windows 10

VB6 - SSTab

Je trouve pas DTPicker dans les composants du VB6 ?

Votre réponse

Discussions similaires