Demande de formule

Signaler
Messages postés
3
Date d'inscription
mercredi 21 mars 2007
Statut
Membre
Dernière intervention
12 février 2014
-
Messages postés
3
Date d'inscription
mercredi 21 mars 2007
Statut
Membre
Dernière intervention
12 février 2014
-
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 !

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
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)
Messages postés
3
Date d'inscription
mercredi 21 mars 2007
Statut
Membre
Dernière intervention
12 février 2014

merci