Aide VBA Urgent

[sharkantipav]

Bonjour,
Je suis actuellement en test pour un entretien d'embauche (je suis au canada)
On me demande de faire un Excel/VBA qui donne toute les combinaison d'un Dollar en pieces (25, 10, 5, 1) centimes
Si qq peut aider ca sauverai une famille.
Merci

 

[Grand Chaman Excel]

Re : Aide VBA Urgent

Bonjour sharkantipav,

Si c'est pour sauver une famille...
Voici une suggestion faite en 2 minutes. Il y a sûrement d'autre façons de le faire...

Sub Combinaison()
Dim somme As Double
Dim n25 As Integer, n10 As Integer, n5 As Integer, n1 As Integer
Dim i As Integer

i = 1
For n25 = 0 To 4
    For n10 = 0 To 10
        For n5 = 0 To 20
            For n1 = 0 To 100
                somme = n25 * 0.25 + n10 * 0.1 + n5 * 0.05 + n1 * 0.01
                If somme = 1 Then
                    Cells(i, 1) = n25   'nombre de 25 cents
                    Cells(i, 2) = n10   'nombre de 10 cents
                    Cells(i, 3) = n5    'nombre de 5 cents
                    Cells(i, 4) = n1    'nombre de 1 cenne
                    i = i + 1
                End If
            Next n1
        Next n5
    Next n10
Next n25

End Sub

PS : Si tu as l'emploi, tu me devrais une commission 😉

A+

 

[ROGER2327]

Re : Aide VBA Urgent

Bonsoir à tous.


Un autre truc du même genre...


ROGER2327
#6478

Vendredi 6 Pédale 140 (Vers Belges - fête Suprême Quarte)
10 Ventôse An CCXXI, 9,4992h - bêche
2013-W09-4T22:47:53Z

 

[sharkantipav]

Re : Aide VBA Urgent

Merci bcp de votre aide,
Ils n'ont finalement embauche personne
too bad... vive la crise

 

[tototiti2008]

Re : Aide VBA Urgent

Bonsoir à tous,

Ils n'ont finalement embauche personne

Si tu as l'emploi, tu me devrais une commission 😉

Dommage pour la commission à 1$ 😉