XL 2019 Calcule majoration

eCHO · 23 Octobre 2022

bonjour
j'avais ce code VBA qui me permet de calcule majoration de retard

VB:

'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 - 1
taxe = (cel2 * 10) / 100 + (cel2 * 5) / 100 + cel2 + ((cel2 * 0.5 / 100 * taxe))
Else
taxe = cel2
End If
End Function

ce que je cherche à faire c'est de changer m qui représente le mois limite par le dernier trimestre non payé sur la ligne F
c'est à dire c'est j'ais T1 dans la colonne F donc " =taxe(E4;F1;4;G4)" et pour T2 "" =taxe(E4;F1;7;G4)"

Merci d'avance

sylvanu · 24 Octobre 2022

eCHO à dit:
un moyen de calculer le total depuis T1/2020 par exemple jusqu'à aujourd'hui c'est à dire t1+t2+t3+t4/2020 +t1..t4/2021 + .....

Qu'entendez vous par le Total ?
Actuellement on calcul le prix pour un nombre de mois donné.
Pourquoi voulez vous ajouter les taxes pour chaque mois ?
Vous voulez calculer les sommes comme indiqué ici dans la colonne jaune ?

Gégé-45550 · 24 Octobre 2022

Bonjour

Code:

d = DateDiff("m", CDate("1/" & m + 3 & "/" & a), cel)

au lieu de :

VB:

d = DateDiff("m", CDate("1/" & m & "/" & a), cel)

bonne journée

sylvanu · 24 Octobre 2022

Bonjour eCho, Gégé,
Peut être comme ceci :

VB:

Function taxe(cel2, cel, DernierTrimestre, a)
    If cel = "" Then Exit Function
    Select Case DernierTrimestre
        Case 1: m = 4
        Case 2: m = 7
        Case 3: m = 10
        Case 4: m = 1: a = a + 1
        Case Else: m = 4 ' valeur par defaut, à modifier
    End Select
    d = DateDiff("m", CDate("1/" & m & "/" & a), cel)
    If d > 0 Then
        taxe = d - 1
        taxe = (cel2 * 10) / 100 + (cel2 * 5) / 100 + cel2 + ((cel2 * 0.5 / 100 * taxe))
    Else
        taxe = cel2
    End If
End Function

La syntaxe est alors : =Taxe(Montant,Date,Trimestre,Année)
NB: Dans votre fichier la formule est en matriciel, c'est inutile.

eCHO · 24 Octobre 2022

Merci pour votre réponse mais en effet il calcule seulement un seule trimestre
est ce qu'il y a un moyen de calculer le total depuis T1/2020 par exemple jusqu'à aujourd'hui c'est à dire t1+t2+t3+t4/2020 +t1..t4/2021 + .....

sylvanu · 24 Octobre 2022

Re,
je me suis juste borné à faire le cas concernant DernierTrimestre.
En relisant je ne comprends pas votre fonction :
taxe = (cel2 * 10) / 100 + (cel2 * 5) / 100 + cel2 + ((cel2 * 0.5 / 100 * taxe))
Si on développe :

VB:

taxe = (cel2 * 10) / 100 + (cel2 * 5) / 100 + cel2 + ((cel2 * 0.5 / 100 * taxe))  soit
taxe = cel2 * 10% + cel2 * 5% + cel2 + cel2 * 0.5% * taxe  soit
taxe = cel2 * 115% + cel2 * 0.5% * taxe  soit enfin

taxe = cel2 * (115% + 0.5% (d-1))

Donc la taxe serait de 115% de la valeur +0.5% par trimestre, ou encore 0.16666% par mois ?
Si c'est ok il suffit de calculer le nombre de mois entre la date et aujourd'hui et d'utiliser 0.16% par mois ?

eCHO · 24 Octobre 2022

C'est le payement a pris de retard on ajoute 10% de 120 et 5% pour le premier mois de retard et 0.5 % pour les autres mois de retard

sylvanu · 24 Octobre 2022

eCHO à dit:
un moyen de calculer le total depuis T1/2020 par exemple jusqu'à aujourd'hui c'est à dire t1+t2+t3+t4/2020 +t1..t4/2021 + .....

Qu'entendez vous par le Total ?
Actuellement on calcul le prix pour un nombre de mois donné.
Pourquoi voulez vous ajouter les taxes pour chaque mois ?
Vous voulez calculer les sommes comme indiqué ici dans la colonne jaune ?

job75 · 24 Octobre 2022

Bonjour eCHO, Gégé-45550, sylvanu,

eCHO à dit:
C'est le payement a pris de retard on ajoute 10% de 120 et 5% pour le premier mois de retard et 0.5 % pour les autres mois de retard

Pas besoin de VBA voyez le fichier .xlsx joint, formule en J4 :

Code:

=E4*(1+10%*(F$1>H4)+5%*SIGNE(I4)+0,5%*MAX(I4-1;))

Le dernier mois de retard n'est pas compté s'il est incomplet.

A+

job75 · 24 Octobre 2022

Si l'on veut que le dernier mois de retard soit compté même s'il est incomplet, formule en I4 :

Code:

=DATEDIF(H4;FIN.MOIS(F$1;0);"m")

XL 2019 Calcule majoration

eCHO

XLDnaute Junior

Pièces jointes

sylvanu

Gégé-45550

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

eCHO

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

eCHO

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires