Formule sous Excel

Bonjour,

Je dois faire un tableaux de calcul. Si quel qu"un de sympa pouvais m'aider ce serais cool. Je vous remercie d'avance.

<voici mon problème:

J'ai une colonne de montant a qui je dois appliquer un barème de calcul de droit proportionnel.

Avec un total par tranche et total général des droits.

Selon le modèle suivant:

Droits proportionnels sur chaque article

1,5% de 0 à 1725 €

0,5 % de 1726 à 4600 €

0,25 % de 4601à 34 500 €

0,10 % au dessus de 34500 €

En résumé j'ai des articles et en fonction du prix j'applique des tranches de droits proportionnel.

exemple si 4800€ je calcul 1.5% de 1725 + 0.5% de 4600-1726 +0.25% de 4800-4600

J'espere etre assez clair ,

Merci d'avance

Pascal

Bonjour,

8exemple.xlsm (13.53 Ko)

A+

Bonjour,

Ci-dessous fonction vba personnalisée

Cdlt

Option Explicit
Public Function calcul_droit(Montant)

    If Not IsNumeric(Montant) Then
        calcul_droit = 0
        Exit Function
    End If

    Select Case Montant
        Case Is <= 1725
            calcul_droit = Montant * 0.015
            Exit Function
        Case Is <= 4600
            calcul_droit = 1725 * 0.015 + (Montant - 1725) * 0.005
            Exit Function
        Case Is <= 34500
            calcul_droit = 1725 * 0.015 + (4600 - 1725) * 0.005 + _
                (Montant - 4600) * 0.0025
            Exit Function
        Case Else
            calcul_droit = 1725 * 0.015 + (4600 - 1725) * 0.005 + _
                (34500 - 4600) * 0.0025 + (Montant - 34500) * 0.001
            Exit Function
    End Select

End Function

Bonjour,

Vraiment super sympa, vous etes trop cool.

Merci beaucoup,

Dans la reponse avec le classeur XLM pas de soucis pour moi.

Juste pour comprendre la deuxieme solution je l'applique a chaque montant.?

Je suis un peu perdu dans l'application de la formule. Je comprends le calcul mais je ne sais le mettre en place.

Si vous avez un moment sans vous deranger pour m'expliquer je dormirais moin bete...

Merci encore

Pascal

Re,

Pour la fonction vba personnalisée :

En A1 tu as un montant de 2500

En B1, par exemple tu écris =calcul_droit(A1)

Cdlt

nb : faire ALT+11 pour ouvrier l'éditeur vba et voir le module "fonction_calcul_droit"

8exemple-6.xlsm (20.61 Ko)

tROP COOL trop fort

Merci beaucoup un bonheur,

Bonne route les pros

Rechercher des sujets similaires à "formule"