Résolu Autres Code en vba à modifier

SLIM1255

XLDnaute Nouveau
Bonjour ! Je cherche à trouver le code correspondant à ce fichier que j'ai déja poster hier
vu des changement dans les données que je ne trouve quoi mettre pour avoir le résultat juste

que vous trouver en commentaire au fichier joint : Merci pour votre aide et au revoir.........Slimane
 
Ce fil a été résolu! Aller à la solution…

Fichiers joints

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 ?
 

SLIM1255

XLDnaute Nouveau
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
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 ?
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
 

Fichiers joints

SLIM1255

XLDnaute Nouveau
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
 

Fichiers joints

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 
Ce message a été identifié comme étant une solution!

Fichiers joints

SLIM1255

XLDnaute Nouveau
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas