Bonjour
 
Est-ce que quelqu’un pourrait m’aider a faire ces programmes en VBA permettant de :
 
1- Calculer le prix net de remise a payer par famille :
 une remise sur le prix de base est accordée selon le nombre d’enfants de la même famille inscrits aux séjours, 5% sur le prix de base pour deux enfants, 10% sur le prix de base pour 3 enfants et plus.
 
2- Mettre a jour les places disponibles pour un séjour :
 ce programme devra permettre de mettre a jour le nombre de places disponibles pour  chaque séjour en tenant compte des inscriptions effectuées.
 
3- Déterminer le montant de l’aide municipale :
 les municipalités versent une aide par enfant pour chaque séjour, Ville1 verse 100€, Ville2 verse 80€ et Ville3 verse 50€  ; il faut donc ici déterminer pour chaque participation le montant de l’aide municipale allouée.
 
 
 
SVP aidez moi a faire ces programmes la , je vous en serais très reconnaissant.
Merci

mets sur cjoint ta base access

c'est pas plutot des requetes SQL ?!!

www.lecompagnon.info
 
cours sur access  
ca peut t'aider

Merci ingenieurcesi pour tes reponses,  mon prof ma demander de faire ces programmes la en vba , c'est possible qu'il faut mettre des requettes sql, je ne sais pas , c'est pour sa que je demande votre aide , je ne sais pas comment commancer, c'est vrais je ne suis pas trés bon en language vba.

dans tout les cas tu mets ta base sur cjoint
ca sera un bon point de depart
 
moi je ferai ca en sql parce ce que je pense que c'est possible avec des group by et des count mais si ton prof à dis en vba c'est autre chose

Comment sa mettre ma base sur cjoint ?, si vous pouvez m'expliquez ce que c'est ,,, Merci
sinon moi j'ai commancer a faire le 2eme programme qui demande de Mettre a jour les places disponibles pour un séjour . il est incompler  
 
 
Sub Mise_a_jour_places_dispo()
 
Dim nbre_places_max As Integer 'nombre de palces maxi'
Dim nbre_places_disp As Integer 'nombre de places disponibles'
 
'mise a jour des places disponibles'
MsgBox ("Saisissez le nombre de places" )
nbre_places_disp = InputBox("Combien de place voulez vous ?" )
nbre_places_disp = nbre_places_max - nbre_places_disp
 
MsgBox ("Le nombre de place disponible est de" & nbre_places_disp)
 
End Sub

vous avez mis un modele relationnel donc j'en ai dedui que vous travaillez sur access.
ce que je vous demande c'est de mettre votre base ( avec les tables et les relations crées) sur cjoint. c'dest du meme genre qu enregistrer sous.
 
sinon petite erreur
nbre_places_disp=nbre_places_max-nbre_places_prises

Merci , le je vien de remplacer ce que vous m'avez mis mais la le programme reste incompler il faut maintenant "mettre a jour le nombre de places disponibles pour  chaque séjour en tenant compte des inscriptions effectuées".
sa je ne sais pas comment le mettre en vba.

svp