Autres Code en vba à modifier

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 27 Mai 2020

• #2

Bonjour Slim,
Jusqu'à la ligne 13 j'arrive à suivre.
A la ligne 14 on a : 3997*8/3-2000/3 et c'est censé faire 3992.
Or quand vous faites =3997*8/3-2000/3 vous trouvez : 9992
Pouvez vous m'éclairer ?

 

Vote positif 0 Vote négatif

S

SLIM1255

XLDnaute Nouveau

• 28 Mai 2020

• #3

Salut Sylvanu !
Merci pour votre observation , Mais une erreur de frappe
et c'est 3990 et non 9992
avec le nouveau code à modifier je veux arriver à trouver IRG (salaire ) : 3992 et non 3997 >>> suivant nouveau bareme 2020. et Merci encore ..........Slimane

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mai 2020

• #4

Bonsoir,
Peut être me suis je mal exprimé.
Votre formule de la ligne 14 : =3997*8/3-2000/3 donne 9992
C'est donc la formule qui est fausse. Comment arriver à 3992 ?

 

Vote positif 0 Vote négatif

S

SLIM1255

XLDnaute Nouveau

• 29 Mai 2020

• #5

Bonsoir!

Trouver L'explication en fichier joint , Vous avez raison La formule est fausse

 

Pièces jointes

• Copie de Bareme IRG 2020 A REctifier.xlsx

  12.5 KB · Affichages: 6

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 29 Mai 2020

• #6

🙂

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 29 Mai 2020

• #7

En PJ un essai.
J'ai préféré structurer la fonction avec un Case, cela me semble plus lisible, et surtout plus maintenable :

VB:

Public Function irg(ByVal Montant)
Select Case Montant
    Case Is <= 30000
        irg = 0
    Case 30001 To 34999
        irg = Round(((Montant - 30000) * 0.3 + 2500) * 8 / 3 - 20000 / 3, 0)
    Case 35000 To 120000
        irg = Round((Montant - 30000) * 0.3 + 2500, 0)
    Case Else
        irg = Round((Montant - 120000) * 0.35 + 29500, 0)
End Select
End Function

 

Pièces jointes

• IRG A RECTIFIER 2020 (2).xlsm

  25.5 KB · Affichages: 12

Vote positif 0 Vote négatif

S

SLIM1255

XLDnaute Nouveau

• 29 Mai 2020

• #8

Merci pour votre réponse , malgré que je me retrouve pas en :
D39 , D40 , et D41 : éclairer- moi SVP et au revoir et Merci encore . car je suis sur excel 2007 ??,?? ( c'est quoi erreur ( # Nom? ) voir fichier joint

 

Pièces jointes

• Copie de IRG A RECTIFIER 2020 (3).xlsm

  19.7 KB · Affichages: 6

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 29 Mai 2020

• #9

Je suis moi même sous 2007.
Où avez vous vu #Nom dans le fichier ? Je n'en vois aucun.
Quand aux lignes D39 à D41, cela correspond lorsque le Montant est supérieur à 120000 alors l' Irg est de (E22-120000)*35%+29500
soit 64500 pour 220000, ou encore 75000 pour 250000.
La macro ne fait que refléter votre formule. Voir PJ.

 

Pièces jointes

• Copie de IRG A RECTIFIER 2020 (4).xlsm

  27.5 KB · Affichages: 13

Vote positif 0 Vote négatif

Solution

S

SLIM1255

XLDnaute Nouveau

• 29 Mai 2020

• #10

Salut !
Enfin Probleme Résolu
Mon excel se trouve option " Macros désactivés " Un grand Merci pour tous vos efforts......................Slimane et à bientôt

 

Vote positif 0 Vote négatif