Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Programme

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion stef784
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

stef784

Guest
Bonjour

On a l'énnoncé suivant:

On considere un impot calculé avec le bareme suivant:

10% pour la tranche allant de 0 à 100
30% pour 100 a 500
50% pour la tranche allant au dela de 500

On me demande d'écrire un programme

voci la correction:

private revenu,impot

input 'entrez votre revenu: ' to revenu

if revenu<=100
impot=revenu/100*10
else
impot=10

if revenu<=500
impot=impot+(30/100)*(revenu-100)
else
impot=impot+30/100*400

impot=impot+(50/100)*(revenu - 500)
endif
endif



mais je ne comprends pas pourquoi :

if revenu<=100
impot=revenu/100*10
else
impot=10


Pourquoi sinon impot=10??
 
Trier par date Trier par votes
Re : Programme

Bonsoir stef784,

Tout simplement parce qu'il s'agit de tranches et donc qu'elles sont cumulatives.

Si le revenu est inférieur à 100, on trouve 10% du revenu, mais s'il est supérieur, alors :

De 0 à 100, on a 10 +
de 100 à 500 on a 120 (soit 130) +
etc...etc.

Bonne soirée.

Jean-Pierre
 
Vote positif 0 Vote négatif
Re : Programme

Bonsoir,
stef784 à dit:
mais je ne comprends pas pourquoi :
if revenu<=100
impot=revenu/100*10
else
impot=10
Pourquoi sinon impot=10??
Cliquez pour agrandir...
Effectivement cette ligne n'a de sens dans ton cas, elle peut être supprimmée
Pourquoi ne pas utiliser l'instruction Select Case
Code: 
Sub impot()
Dim impot As Double
revenu = InputBox("entrez votre revenu")
Select Case revenu
Case Is <= 100
impot = revenu / 100 * 10
Case Is <= 500
impot = (revenu - 100) * 30 / 100 + 10
Case Else
impot = (revenu - 500) * 50 / 100 + 130
End Select
MsgBox impot
End Sub
A+
kjin
 
Vote positif 0 Vote négatif
Re : Programme

Re, Bonsoir kjin,

Dire que la ligne n'a aucun sens, je ne suis pas d'accord. Tel que le code est écrit, elle a tout son sens et elle est même obligatoire.

Maintenant dire que l'on peut simplifier le code, alors là, je suis entièrement d'accord.

Il faut être prudent sur les termes employés surtout vis-à-vis de ceux qui découvrent Excel ou de ceux qui ne sont pas encore à l'aise avec.

Bonne nuit.

Jean-Pierre
 
Vote positif 0 Vote négatif
Re : Programme

Bonjour Stef, Jean-Pierre, Kjin

une autre approche, à voir si cela peut t'être utile...

Code: 
Option Explicit
Sub test()
Dim impot As Double, revenu As Double
revenu = InputBox("Revenu ?")
If revenu <= 100 Then impot = revenu * 0.1
If revenu > 100 And revenu <= 500 Then impot = 10 + (revenu - 100) * 0.3
If revenu > 500 Then impot = 130 + (revenu - 500) * 0.5
MsgBox impot
End Sub

bonne journée
@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

POWERQUERY :: LES DATES REMARQUABLES
Réponses
5
Affichages
671
oguruma
A
  • Question Question
XL 2016 Combobox Saisie Date
Réponses
12
Affichages
1 K
aurelio.ewane
A
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
E
  • Question Question
XL 2019 Calcul Majoration VBA
Réponses
3
Affichages
870
Wayki
F
  • Question Question
XL 2016 Blocage macro sur instruction SET
Réponses
6
Affichages
794
job75
A
  • Résolu(e)
Microsoft 365 Trop de caractères de continuité de ligne
Réponses
9
Affichages
1 K
TooFatBoy
F
  • Question Question
XL 2019 Avis macro sur classeur maître
Réponses
0
Affichages
792
Fanrs
F
  • Question Question
Microsoft 365 Problème bouton annuler InputBox
Réponses
2
Affichages
1 K
PORCHER
M
  • Question Question
XL 2019 "Batch Convert" un groupe de fichier XLS en XLSX
Réponses
13
Affichages
5 K
M7cks
M
M
  • Question Question
XL 2013 Erreur d'exécution 9 ou 13 que je n'arrive pas à résoudre.
2
Réponses
20
Affichages
3 K
massol
M
  • Question Question
XL 2010 Une fonction qui sature
Réponses
8
Affichages
2 K
Magic_Doctor
T
  • Question Question
Trier les informations d'une liste déroulante
Réponses
3
Affichages
2 K
Toubabou
T
F
  • Question Question
Fonction récursive ?
2
Réponses
22
Affichages
4 K
francois1955
F
  • Question Question
Fonction qui dissèque un intervalle de temps pour des années de 365 jours
3 4 5
Réponses
68
Affichages
12 K
Magic_Doctor
A
  • Question Question
augmenter valeurs de cellules grâce à un bouton
Réponses
3
Affichages
21 K
andersfriden
A
  • Question Question
[RESOLU] Ajout d'une colonne dans userForm
Réponses
5
Affichages
2 K
zeltron24
M
  • Question Question
Combinaison ARRAY
Réponses
0
Affichages
2 K
MARGAR
M
C
  • Question Question
Ameliorer ma macro pour alimenter mon planning
Réponses
7
Affichages
2 K
Daes
D
D
  • Question Question
Problème programme VBA ne marche qu'aux 3 quarts
Réponses
3
Affichages
1 K
porcinet82
S
  • Question Question
Macro VBA
Réponses
2
Affichages
997
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…