Automatiser calculer de prix de billets
bonjour, je suis débutant sur VBA et j'aimerais automatiser le calcul de prix des billets d'entrée à la piscine (exercice scolaire).
Le prix de base est de 30 euros par personne. Et le montant total à payer peut être diminué selon un pourcentage de réduction qui dépend du nombre d'enfants présents dans le groupe et qui s'applique sur le montant total à payer pour l'ensemble du groupe. Sachant que les taux de réduction sont : 0% si 0 enfants, 10% si 1 enfants, 20% si 2 enfants et 30% si 3 enfants ou plus
et avec ces infos, j'aimerais pouvoir calculer le montant à payer en fonction du nombre d'enfants et d'adultes. Le but est de pouvoir saisir le nombre d'enfants et d'adulter et d'avoir le montant à payer après remise qui s'affiche dans une fenêtre.
Quelqu'un pourrait m'éclairer ?
Sachant que j'ai vu les fonctions Select Case, Do.. Loop, For..Next, If.. Else , je sais pas si ça peut aider
Merci d'avance!
Bonjour,
pour si peu te prends pas la tête à faire du vba Excel le gère très bien en formule.
Voir fichier joint.
Cordialement.
hello bigdaddy
malheureusement c'est un exercice scolaire, j'ai besoin de l'appliquer comme ça
hello bigdaddy
malheureusement c'est un exercice scolaire, j'ai besoin de l'appliquer comme ça
Bonjour, si c'est un exercice scolaire j'imagine qu'il y a quand même un fichier de départ ?
on ne sait même pas si tu parles de vba pour un userform , ou juste une macro ?
Un fichier exemple serait plus que nécessaire.
hello bigdaddy
malheureusement c'est un exercice scolaire, j'ai besoin de l'appliquer comme ça
Bonjour, si c'est un exercice scolaire j'imagine qu'il y a quand même un fichier de départ ?
on ne sait même pas si tu parles de vba pour un userform , ou juste une macro ?
Un fichier exemple serait plus que nécessaire.
Hello, oui c'est sur module que je dois coder, pas de userform
Dans ce cas joins le fichier on gagnera du temps si on travail avec les même références de cellules.
Salut coronae,
Salut l'équipe,
un exercice scolaire ? Si on te le fait, tu n'apprendras rien...
Marche à suivre :
- détecter un changement dans les cellules contenant le nombre d'adultes et d'enfants ;
- calculer le montant global ;
- fixer réduction à 0, donc taux plein = 1 ;
- si le nombre d'enfants > 0, calculer le pourcentage, sous forme 0.7, 0.8, 0.9, plus facile... ;
- tu mets alors d'office cette réduction à 0.7 ;
- si moins de 3 enfants, alors = 1 - (Nbre enfants / 10) ;
- calcul et affichage prix final dans une cellule adjacente : Prix total * Réduction ( donc 1 si taux plein ou 0.7...)
Tu nous racontes ?
A+
Bonjour,
En faisant la synthèse de votre aide et ma réflexion voici le code que j'attendais
Merci bigdaddy
Sub Calcul()
Dim Prix_Par_Personne As Single, Remise As Single, Total_Prix As Single
Dim Nb_Adulte As Integer, Nb_Enfant As Integer
Prix_Par_Personne = 30
Nb_Adulte = InputBox("quel est le nombre d'adultes ?")
Nb_Enfant = InputBox("quel est le nombre d'enfants ?")
'Choix de la remise
Select Case Nb_Enfant
Case 0
Remise = 0
Case 1
Remise = 0.1
Case 2
Remise = 0.2
Case Else
Remise = 0.3
End Select
'Calcul du prix avec la remise
Total_Prix = (Prix_Par_Personne * (Nb_Adulte + Nb_Enfant) * (1 - Remise))
MsgBox (" le montant après remise est " & Total_Prix)
End Sub
Salut Coronae,
tu peux faire un Select Case plus court...
'Choix de la remise
Select Case Nb_Enfant
Case Is < 2
Remise = Nb_Enfant / 10
Case Is > 2
Remise = 0.3
End SelectPour le reste, très bien!
A+