Algo

merci mais tu pourrais m'expliquer ta démarche car j'ai pas super compris

@glimoreTu vireras la dernière ligne (prix = prix + niveau), j'viens de regarder, j'ai oublié quelques trucs quand même.

Ben en gros, le principe, c'est d'appliquer le niveau en fonction du jour et de l'heure. Il ne te reste plus qu'à ajouter au prix la valeur du niveau.

@HostOfSeraphimtjr pas compris dsl

var

distance : entier
jours : texte
heure :

début

afficher ("saisir distance en KM :")
saisir (distance)
afficher ("saisir jour de réservation :")
saisir (jours)
afficher ("saisir heure de réservation :")
saisir (heure)

si distance < 50
| alors prix <- distance*0.15
| sinon si distance < 200
| | alors prix <- (50*0.15)+(distance-50)*.010
| | sinon prix <- (50*0.15)+(150*0.10)+(distance-200)*0.08
| fsi
fsi

Si jour <> samedi et jour <> dimanche
| alors
| Si heure >= 8 et heure <=20
| | alors niveau <- 3
| | sinon niveau <- 1
| |
| fsi
|
|
| sinon si heure >= 8 et heure <=20
| | alors niveau = 2
| | sinon niveau = 1
| fSi
FSi

fin

@glimorje trouve pas mon erreur j'ai essayer pourtant

Option Explicit

Sub main()
Dim distance As Integer
Dim heure As Integer
Dim jours As Single
Dim prix As Double

distance = InputBox("saisir distance en KM :")
jours = ("saisir jour de réservation :")
heure = InputBox("saisir heure de réservation :")

If distance < 50 Then
prix = (distance * 0.15)
ElseIf distance < 200 Then
prix = (50 * 0.15) + (distance - 50) * 0.01
Else: prix = (50 * 0.15) + (150 * 0.1) + (distance - 200) * 0.08
End If

If jours <> samedi And jour <> dimanche Then

If heure >= 8 And heure <= 20 Then
niveau = 3
Else: niveau = 1
End If

ElseIf heure >= 8 And heure <= 20 Then
niveau = 2
Else: niveau = 1
End If

MsgBox ("prix du billets" & prix)

fin

j'ai pas tt compris

oui pour le input box j'ai vu je l'ai remplacer et j'ai aussi changer les var

mais pour le reste je voie pas

@glimorePour le reste :

If jours <> samedi And jour <> dimanche Then

Il faudrait convertir le jour en numéro, parce que pour le moment, le système ne peut pas savoir que lundi est avant mardi, par exemple. Pour lui, "lundi" n'est rien autre que du texte, comme "carotte" ou "piaf".

Une solution consiste à faire ceci :

Si jour="lundi" alors jour=1 FSi
Si jour="mardi" alors jour=2 FSi
Si jour="mercredi" alors jour=3 FSi
Si jour="jeudi" alors jour=4 FSi
Si jour="vendredi" alors jour=5 FSi
Si jour="samedi" alors jour=6 FSi
Si jour="dimanche" alors jour=7 FSi

Bon, c'est loin d'être optimisé, mais au moins ça marche et c'est facile à comprendre.

Ensuite, tu fais les tests sur les numéros à la place des jours...

Quand tu marques If jours <> samedi And jour <> dimanche Then , c'est pour tester si le jour saisi est un jour de semaine ou un jour de week-end. En ayant remplacé les noms des jours par le numéro, tu vois que la semaine va du jour 1 (lundi ) au jour 5 (vendredi), les jours 6 et 7 étant donc le week end. Ca devient donc :

If jour < 6 Then

(si le jour est inférieur à 6, il est donc entre 1 et 5, soit un jour de la semaine... et c'est ce qu'on voulait tester)

L'idée est là.

Mais pour les deux dernières lignes, c'est jour < 6 (que tu peux traduire par "si jour est inférieur à samedi, vu que samedi = 6).

Pour les heures, comme ce sont déjà des chiffres, rien à retoucher : tu peux bien utiliser "heure > 8 et heure < 20".