Bonjour,
Je souhaiterais créer ce petit programme pour effectuer une facturation simple, cependant si je rentre dans la première ligne une quantité et un prix unitaire le prix obtenu dans le montant_1 ne s’ajoute pas dans le total_devis.
Sauf, si je rempli toutes les cases !
Comment forcer le total_devis même si toutes les lignes ne sont pas remplies.
Ma ligne de code suivante , ne semble pas fonctionner :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Sub Calculer_devis_Click() Me!Montant_1 = Me!Prix_unitaire_1 * Me!quantité_1 Me!Montant_1.SetFocus Me!Montant_2 = Me!Prix_unitaire_2 * Me!quantité_2 Me!Montant_2.SetFocus Me!Montant_3.SetFocus Me!Montant_3 = Me!Prix_unitaire_3 * Me!quantité_3 Me!Montant_4.SetFocus Me!Montant_4 = Me!Prix_unitaire_4 * Me!quantité_4 Me!Montant_5 = Me!Prix_unitaire_5 * Me!quantité_5 Me!Montant_5.SetFocus Me!total_devis = Me!Montant_1 + Me!Montant_2 + Me!Montant_3 + Me!Montant_4 + Me!Montant_5 Me.total_devis.SetFocus End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part Me!total_devis = Me!Montant_1 + Me!Montant_2 + Me!Montant_3 + Me!Montant_4 + Me!Montant_5
Je joins une impression d'écran du formulaire en mode création...
Merci de m'aider à résoudre ce problème..
Bien cordialement
Partager