Problème à résoudre VBA Excel

Version imprimable

14/10/2020, 21h50
Ben Bergeron

Problème à résoudre VBA Excel

Bonjour à tous,

Je dois résoudre le problème suivant : Un magasin ne vend que des articles de 1$ et moins, et n’accepte que des billets de 1$ comme paiement. Ecrivez une fonction VBA (Function) appelée Question2 qui reçoit en entrée un montant d’achat et imprime dans la fenêtre immédiate la monnaie à remettre en utilisant un minimum de pièces. On dispose d’un nombre illimitée de pièces de 50¢, 25¢, 10¢, 5¢, et 1¢. Par exemple, pour un achat de 52¢, on remettra un 25¢, deux 10¢, et trois 1¢.

J'ai tenté de faire des boucle For Next, mais sans succès. Ensuite j'ai essayé de faire des boucle If mais encore une fois je suis complètement bloqué.

Soyez indulgent, je suis débutant avec vba.

Merci de votre aide
14/10/2020, 22h30
mfoxy

Bonsoir,

Vous pourriez peut-être donner l'ébauche de votre code actuel ?

Lors de vos cours, vous devriez avoir reçu les infos/connaissances nécessaires ( array, boucle, opérateurs ( par exemple Mod)), que pour pouvoir avoir créer au minima un bout de code ?

Une petite recherche sur le net, vous offre des algorithmes pour le 'rendre la monnaie en un minimum de pièce' en Python, js, et même des structurogramme en FR.

Perso, je ne passerai pas de temps à développer cette fonction pour vous, sans au minimum avoir vu un investissement de votre part.

Bonne soirée,

Bonjour,

Citation:

Envoyé par Ben Bergeron

Soyez indulgent, je suis débutant avec vba.

Allez c'est mon jour de bonté, voilà ce que je te propose pour résoudre ta fonction avec la procédure de test

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Public Function monnaie(achat)
Dim pieces()
Dim rendu As Double
Dim idx As Integer
Dim nbp As Integer
    pieces = Array(50, 25, 10, 5, 1)
    rendu = (1 - (achat - Int(achat))) * 100
    For idx = 0 To UBound(pieces)
        nbp = 0
        While rendu >= pieces(idx)
            nbp = nbp + 1
            rendu = rendu - pieces(idx)
        Wend
        If nbp > 0 Then monnaie = monnaie & pieces(idx) & "¢ : " & nbp & vbLf
    Next idx
End Function
 
Public Sub test()
MsgBox monnaie(2.52)
End Sub

21/10/2020, 20h21
anasecu

Bonjour,

Notre ami canadien Ben Bergeron a dû être confiné même virtuellement car sa fonction qui lui tenait à cœur a été abandonnée sur le forum.