calcul remise cours

Bonjour,
pour l'école, on me demande d'écrire un algorithme mais je n'y arrive pas. Le sujet dit qu'une remise de 5 % est accordée aux employés du rayon vente ayant plus d'un an d'ancienneté et une remise de 3 % pour les autres employés ayant plus d'un an d'ancienneté. Ceux qui ont moins d'un an d'ancienneté n'ont rien.
J'ai commencé à écrire un bout de code mais ensuite, je pense que la prof veut nous faire utiliser Select case... mais je ne sais pas comment l'utiliser avec autant de variables...
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub calcul_reduction () Dim rayon, qualif, ancienneté, prix_fact, remise as Double const remise_employés as Double = 5% remise_autres as Double = 3%   ' saisie rayon= Inputbox("Travaillez-vous au service ventes ? O/N") qualif= Inputbox("Vous êtes employé, tapez E, vous êtes chef de rayon, tapez C") ancienneté= Inputbox("Votre ancienneté est-elle supérieure à 1 an ? O/N") prix_fact= InputBox("Quelle est le prix de votre facture ?")   Select case

---

Merci de votre aide

Voici un example de select case :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

payment= Inputbox("Choose a payment mod : Cash or Visa or AmEx or another choice") select case payment case "Cash" msgbox "You are going to pay cash" case "Visa" msgbox "You are going to pay with visa" case "AmEx" msgbox "You are going to pay with American Express" case Else msgbox "Unknown method of payment" end select

---

Dans ton cas si tu ne mets pas toutes les réponses à tes questions dans une seule variable, tu n'as pas d'intérêt à utiliser le select case.

Je pense que votre prof s'attends à ce que vous fassiez un "menu" dans votre input box. Quand je parle de "menu" je veux dire un texte qui présente les différentes combinaison possible suite au pré-requis.
Pour chaque combinaison tu lui associes une lettre et tu récupère la lettre dans une seule variable.
Là tu peux appliquer ton select case.