demande de formule

Question

Bonjour a tous
y'a t'il une ame charitable qui pourrais me'indiquer une macro commande pour me permettre de calculer sur une somme x  entre 100 et 500 je voudrais faire le calcul suivant : sur les 100 je multiplie par 3.5 % et sur le reste par 0.5 % et si x depasse 501 le calcul sera :  les 500 seront multipliés par 2.5 % et la suite par 0.3 %
Merçi d'avance !

cs_Jack · Answer

Salut
Tu peux essayer ça :

Public Function mesCalculs(ByVal Valeur As Single) As Single
    Select Case Valeur
        Case Is > 500
            mesCalculs = (500 * 2.5 / 100) + _
                         ((Valeur - 500) * 0.3 / 100)
        Case 100 To 500
            mesCalculs = (100 * 3.5 / 100) + _
                         ((Valeur - 100) * 0.5 / 100)
        Case Else
            MsgBox "La valeur ne peut pas être inférieure à 100)"
    End Select
End Function

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

vazimolo · Answer

merci

Demande de formule

2 réponses

Votre réponse

Discussions similaires