Discussion :

[jawed]

a toute et a tous
j'ai un tableau excel -CI JOINT- qui me calcule les recette journaliere je doit y inscrir le montant TTC et le Droit de timbre manuellement j'espere si c'est possible que le droit de timbre soit calculé automatiquement pour evite toute erreur suivant ces conditions:
* si un client paye par cheque ou par carte de credit le droit de timbre est egal a 0
* si le client paye en numeraire le droit de timbre ce calcule suivant ces regles:
1- si le montant TTC est inferieur a 10 le DT est egale a 0
2- si le montant TTC est entre 10 et 599 le DT est egale a 5
3- si le montant TTC est entre 600 et 250 000 le DT est egale au TTC*1% mais sans arrondir le chiffre exemple:
TTC= 45252.32 DT= 452 mais pas 453
TTC= 709 DT= 7 mais pas 7,09
4- si le montant TTC est superieur a 250 000 le DT est egale 2500 quelque soit le montant du TTC
merci pour toute suggestion
cordialement

[kiki29]

Jour Bon, à tester et adapter, via une fonction personnalisée,l'ajout d'une colonne Type Paiement ainsi que d'une liste de validation

[jawed]

salut tous le monde
kiki29 merci pour ton module ca marche parfaitement mais j'ai remarqué que dans une seul feuille de mon classeur le droit de timbre doit etre arrondi exemple:
TTC = 7194 Dt=72
TTC = 17994 Dt= 180
peut tu y remédié
merci d'avance
cordialement

[marc56]

Dans ton premier post les arrondis devaient se faire en inférieur et maintenant c'est en supérieur???
C'est pour faciliter la vie de kiki29.

[kiki29]

Re, effectivement quand tu sauras ce que tu veux
à toi de faire tes modifs toi même
en jouant avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DDT = Application.WorksheetFunction.RoundDown(MontantTTC / 100, 0)

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DDT = Application.WorksheetFunction.RoundUp(MontantTTC / 100, 0)

et en t'aidant de l'aide en ligne

[Invité]

Bonsoir Jawed,

Il y a 3 fonctions pour arrondir une valeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

-ARRONDI (c'est l'arrondi commercial)

faites des essais avec les valeurs de départ. Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
si C4 contient : 7550
 
=ARRONDI(C4/100;0)  affichera : 76
 
si C4 contient : 7549
 
=ARRONDI(C4/100;0) affichera : 75
 
Sinon il y a : ARRONDI.SUP
 
si C4 contient : 7500 ou même 75
=ARRONDI(C4/100;0) affichera : 75

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Mais à partir de C4 = 7500,01 (en fonction du nombre de décimales choisies)
jusqu'à C4 = 7599,99
=ARRONDI(C4/100;0) affichera : 76

et inversement pour ARRONDI.INF

donc dans le cas que vous citez il faut utiliser "ARRONDI" (à mon avis)

Bien sûr il s'agit ici d'une fonction dans une formule et non pas de VBA.

[jawed]

Dans ton premier post les arrondis devaient se faire en inférieur et maintenant c'est en supérieur???
C'est pour faciliter la vie de kiki29.

merci a vous tous
a bientot

[imenebah]

a toute et a tous
j'ai un tableau excel -CI JOINT- qui me calcule les recette journaliere je doit y inscrir le montant TTC et le Droit de timbre manuellement j'espere si c'est possible que le droit de timbre soit calculé automatiquement pour evite toute erreur suivant ces conditions:
* si un client paye par cheque ou par carte de credit le droit de timbre est egal a 0
* si le client paye en numeraire le droit de timbre ce calcule suivant ces regles:
1- si le montant TTC est inferieur a 10 le DT est egale a 0
2- si le montant TTC est entre 10 et 599 le DT est egale a 5
3- si le montant TTC est entre 600 et 250 000 le DT est egale au TTC*1% mais sans arrondir le chiffre exemple:
TTC= 45252.32 DT= 452 mais pas 453
TTC= 709 DT= 7 mais pas 7,09
4- si le montant TTC est superieur a 250 000 le DT est egale 2500 quelque soit le montant du TTC
merci pour toute suggestion
cordialement