Fonction ElseIf - VBA

Bonsoir,

J'en suis à mes débuts du langages VBA en lisant différents tuto et je bloque ce soir sur la fonction ElseIf avec des contraintes en tranches, je n'arrive pas à résoudre l'erreur "Else sans If".

Cordialement

10prime.xlsm (14.78 Ko)

Et en ajoutant des sauts de lignes ?

Function maPrime(Fixe, CA)
If (CA <= 100000) Then
    maPrime = CA * 0.02 + Fixe
ElseIf (CA <= 200000) Then
    maPrime = 2000 + Fixe + (CA - 100000) * 0.03
ElseIf (CA <= 500000) Then
    maPrime = 5000 + Fixe + (CA - 200000) * 0.05
ElseIf (CA > 500000) Then
    maPrime = 20500 + Fixe + (CA - 500000) * 0.07
End If
End Function

bonjour

simplement a la fin.... pas besoin de elseif car si tu n'es pas inférieur ou égal a 500000 c'est que tu es forcement au dessus

fred

Function maPrime(Fixe, CA)
If (CA <= 100000) Then
    maPrime = CA * 0.02 + Fixe
ElseIf (CA <= 200000) Then
maPrime = 2000 + Fixe + (CA - 100000) * 0.03
ElseIf (CA <= 500000) Then
maPrime = 5000 + Fixe + (CA - 200000) * 0.05
Else
maPrime = 20500 + Fixe + (CA - 500000) * 0.07
End If
End Function

Merci pour vos deux réponses ça m'a débloqué, et je n'étais pas au courant pour les sauts de lignes !

Bonne soirée

re

Pas forcement besoin des sauts de lignes.....

Function maPrime(Fixe, CA)
If (CA <= 100000) Then
    maPrime = CA * 0.02 + Fixe
ElseIf (CA <= 200000) Then maPrime = 2000 + Fixe + (CA - 100000) * 0.03
ElseIf (CA <= 500000) Then maPrime = 5000 + Fixe + (CA - 200000) * 0.05
Else: maPrime = 20500 + Fixe + (CA - 500000) * 0.07
End If
End Function

ceci marche correctement aussi....

fred

Rechercher des sujets similaires à "fonction elseif vba"