Discussion :

[heinquoi]

bonjour,
je suis a la recherche d'un emploi en informatique et j'ai eu quelques propositions, mais concernant les salaires, je pedale entre net et brut.
j'ai donc fais un nano script ou je rentre un salaire brut ( utilisé par les employeurs) que je multiplie par 0.774 pour avoir le salaire net.
ca merdouille lorsque je met rien ( je voudrais que ca quitte) et si vous avez des idées d'ameliorations, je suis preneur ( salaire brut annuel, salaire net annuel ,...)

Code :

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

1
2
3
4
5
6
do while true
	dim a
	a=InputBox("entrer le salaire brut:",1)
	if a=0 or a="" or a = 1 or a=2 then exit do 
	MsgBox("le salaire net est:"& a*0.774)
loop

cordialement
FC

[omen999]

bonjour,

plutôt quelque chose comme ça (en évitant notamment de redéclarer la variable à chaque itération...):

Code :

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

1
2
3
4
5
6
dim a
do while true
	a=InputBox("entrer le salaire brut:","Mon salaire que j'ai à moi tout seul")
	If a="" or Not IsNumeric(a) Then exit Do
	MsgBox("le salaire net est:"& a*0.774)
loop

ps: j'espère que tes futurs employeurs ne fréquentent pas le site

[heinquoi]

plutôt quelque chose comme ça (en évitant notamment de redéclarer la variable à chaque itération...):

bonjour,
effectivement en sortant la declaration de variable de la boucle, c'est mieux...

ps: j'espère que tes futurs employeurs ne fréquentent pas le site

le script revu en suivant tes conseils

Code :

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

1
2
3
4
5
6
dim a 
do while true  
	a=InputBox("entrer le salaire brut mensuel:","Conversion Salaire brut/Net pour la France")
	If a="" or Not IsNumeric(a) Then exit Do
	a=MsgBox("salaire mensuel NET:"& a*0.774 & vbcrlf & "salaire  annuel NET:"& a*0.774*12 & vbcrlf & "salaire annuel BRUT:" & a*12 & vbcrlf,,"Salaire mensuel BRUT:" & a)
loop