XL 2019 Calcul Majoration VBA

[eCHO]

bonjour

J'ai une formule de calcule pour calculer la majoration d'une taxe
Chaque trimestre on doit calculer la majoration d'un montant déclaré
Le dernier délai et la fin du mois suivant chaque trimestre
par exemple: pour le 1er Trimestre le dernier délai est le 30 avril
si cette date est dépassés alore en exécute cette fonction

'm repr�sente le mois limite et a repr�sente l'ann�e
Function taxe(cel2, cel, m, a)
'MsgBox CDate("1/" & m & "/" & a)
If cel = "" Then Exit Function
d = DateDiff("m", CDate("1/" & m & "/" & a), cel)
If d > 0 Then
taxe = d
taxe = (cel2 * 10) / 100 + (cel2 * 5) / 100 + cel2 + ((cel2 * 0.5 / 100 * taxe))
Else
taxe = cel2
End If
End Function

explication du ce calcul : 10% de montant déclaré ( si le dernier délai est respecté ) si non en ajoute 10% (Pénalité) + 5% pour le premier mois de retard +0.5% pour chaque outres mois de retard
ma questionne est comment ajoute 5% de 1er mois de retard a la formule ?

merci infiniment

 

[Wayki]

Bonjour,
N'est-ce pas déjà le cas ?
Vos 5% ne s'ajoutent qu'une seule fois dès le premier mois dépassé, idem pour vos 10%.
Seul les 0.5% sont au prorata des mois écoulés.
En revanche quelque chose me dérange dans votre tableau, c'est que vous choisissez dans la formule votre date butoir (le mois).
Il serait plus lisible et plus judicieux de faire apparaître votre délai dans le tableau.
A +

 

[eCHO]

bonjour
oui effectivement 5% s'ajoutent qu'une seule fois dès le premier mois dépassé mais 0.5% doit s'ajoutent le deuxième mois et les mois suivant

 

[Wayki]

Bonjour,
Dans ce cas là il suffit de rajouter -1 à taxe = d (taxe = d - 1) 😉
A +