Distributeur de billets en Visual Basic Excel

Formations Excel, Access et bien d'autres

Подписаться 104 тыс.

Просмотров 12 тыс.

50% 1

Ce programme VBA Excel montre comment résoudre des équations à plusieurs inconnues grâce à des boucles imbriquées pour trouver la bonne combinaison de billets. Il s'agit d'un guichet automatique représenté dans un formulaire graphique conçu avec un UserForm. Une feuille Excel présente les quantités en stock des différents billets proposés par le distributeur automatique. Le client saisit le montant qu'il souhaite retirer en cliquant sur des boutons. Le programme enclenche une triple boucle pour tenter de résoudre l'équation et fournir la combinaison de billets qui permet d'atteindre le montant demandé. Si les quantités ne sont pas supérieures à celles disponibles en stock, le programme valide la transaction en mettant à jour les stocks de billets en banque.
#ApplicationExcel
#VbaExcel
#BouclesVBA
#ProgrammationExcel
Le code VBA et l'exercice en pas à pas sont sur le site :
www.bonbache.f...

Опубликовано:

19 сен 2024

Ссылка:

Скачать:

Готовим ссылку...

Добавить в:

Мой плейлист

Посмотреть позже

Комментарии : 22

@patricianeve6039 4 года назад

Félicitations pour ce tuto si bien "bouclé". Et surtout merci pour vos explications si claires !

4 года назад

Comme vous le dites si bien Patricia 😊. C'est effectivement l'astuce de ces imbrications qui permet d'aboutir la solution. Merci beaucoup pour ce retour sur impression.

@Salyanov5 3 года назад

Merci merci. Un vrai plaisir, cette formation graduelle par la pratique. On y apprend et peaufine le VBA, mais aussi les astuces Excel, la logique algorithmique et la création d'outils sympas et utiles. Cela fait naître plein d'idées pour créer par-ci par-là, aussi juste pour le plaisir. En route pour la vidéo suivante !

3 года назад

Grand plaisir de recevoir vos impressions sur ce tuto. Je l'ai monté sur une demande particulière. La logique algorithmique dont vous parlez effectivement et qui apporte la solution des équations à résoudre par une double boucle est tout l'intérêt que peut offrir le code lorsque les limites sont atteintes côté logiciel. Encore merci mon Cher Marcus.

@gedeonkakira6948 2 года назад

merci pour le tuto

2 года назад

Je vous en prie. Merci à vous pour votre intérêt.

@GeorgeBander 7 лет назад

Ouf, j'ai mis le temps, mais j'y suis parvenu !! Rien à dire, super tuto une fois de plus !! Merci Mr le Professeur !! Sympas comme d'ab !

7 лет назад

Oui résolution d'équations à plusieurs inconnues grâce aux boucles pour fournir une combinaison de billets au client. Le code reste léger grâce à cette astuce. Un très grand merci George pour votre suivi et vos excellents retours.

@l_instructeur 3 месяца назад

super... mERCI EN 2024

3 месяца назад

C'est un plaisir, merci à vous.

@azizsb2374 4 года назад

Super intéressant.

4 года назад

Merci beaucoup Aziz

@soufianeakentouchi7189 Год назад

Grand merci , je tiens vraiment à vous remercier pour cette formation impressionnante pleine d'astuces et conseils. Cependant j'ai un problème lorsque je clique sur valider le système m'affiche à chaque fois le msgbox " nous sommes désolés ,aucune combinaison .... je comprends pas !!!! sachant que j'ai tout fait

Год назад

Bonjour et merci pour ce message. Cela signifie que dans le tableau source simulant la banque, il ne reste plus assez de coupures permettant de livrer le montant demandé par le client. Il faut le réalimenter.

@soufianeakentouchi7189 Год назад

Merci beaucoup, mais mon tableau est toujours alimenté ( 52,32,12) , toutefois c'est le même msgbox qui s'affiche toujours

@Michel88200 7 лет назад

Bonjour, Trés bon tuto, Merci pour cet apprentissage J'ai cependant ajouter cette ligne, juste après la ligne du premier FOR (pour les billets de 50) If (z = 0 And y = 0) Then x = x - 1 Ce qui permet, au cas où on demande une somme multiple de 50, ne pas se retrouver qu'avec des billets de 50

7 лет назад

Bonjour Michel, merci à vous pour cette amélioration et contribution qui servira à tous.

@elshadamatumona2997 3 года назад

Comme le pavé de saisie txt_montant est numérique, à quoi sert le test isnumeric() d'autant plus qu'on ne saisira jamais une lettre avec ce pavé numérique dont les boutons vont de 0 à 9 ?

3 года назад

Bonjour Elshada. Oui tout à fait mais si l'utilisateur est tenté de cliquer sur le bouton de validation sans avoir renseigné le moindre montant, la zone est vide, donc considérée comme un texte et fait échouer la transaction.

@michelcarrere644 5 лет назад

j'ai fait le tuto distributeur de billets:j"ai très bien réussie User Form avec toutes les couleurs et police etc... .j'ai commencer a encoder et les explication était très claire et précise.j'ai fait jusqu'au début de la boucle FOR x tout marcher super bien et j'ai continuer a encoder jusqu’à la fin et quand j'ai voulu faire l’opération pour retirer comme sur la vidéo le montant des 240euros sa ma dit ""ERREUR de COMPILATION"" variable non définie a FOR X et c'est le X qui c'est mit en bleu .pourtant vos explication était super claire et précise ,mais j'ai du merder quelque part .j'ai refait tout l'encodage et j'ai le mème résultat.si vous pouviez me dire ou je ME suis tromper sa me ferais grand Plaisir dans l'attente , encore mille merci pour vos vidéos MICHEL

5 лет назад

Bonjour Michel. Si l'instruction Option Explicit figure en entête de votre code, vous devez déclarer ces variables de boucle, ce qui n'est pas précisé dans cette formation, puisque précisément nous travaillons avec certaines largesses. Dim x As Integer : y As Integer : z As Integer Sinon, supprimez cette instruction et vous ne devriez pas avoir de souci.