Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ? et cent en billets et pièces

? et cent en billets et pièces

16 réponses
Avatar
JEAN-PAUL
Salut à tous,

Jai bricolé un calcul qui me permets de calculer les nombre de pièces et de
billets de chaque type à commander à la banque afin de payer des sommes
d'argent à diverses personnes.
Mais j'ai fréquemment le prob suivant:
Exemple: pour 43.29?, j'ai 2X20?
1x2?
1x1?
1x0.2?
1x0.05?
et 1x0.02? + 2x0.01?
au lieu de 2x0.02?
Le total est correct mais cela m'ennuye.
Quelqu'un a-t-il une solution toute faite?

Merci.

JP
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Pounet95
Bonjour Alain,
Ah ces fameux SOMMEPROD que je n'arrive pas à mettre dans la tête !
Bonne journée

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"AV" a écrit dans le message de news:
O%
En disposant de la façon suivante :
De B1 à N1 les valeurs faciales billets/pièces :
100-50-20-10-5-2-1-0.50-0.20-0.10-0.05-0.02-0.01
En A2 le montant à "découper" (dans ton exemple 43.29)
En B2 :
=ENT(A2/$B$1)
En C2 et recopie --> N2 :
=ENT(FRANC($A2-SOMMEPROD($B$1:B$1;$B2:B2);2)/C$1)

AV





Avatar
AV
Ah ces fameux SOMMEPROD que je n'arrive pas à mettre dans la tête !


Ben il te faut urgentement adhérer à la SPA !
;-)
AV

Avatar
Pierre CFI [mvp]
ah, la spa, voilà le secret de AV
je me demande si quelqu'un voudra m'adopter ? jps ? peut etre , pour que je tire sa carriole dans sa verte campagne

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"AV" a écrit dans le message de news:e%
Ah ces fameux SOMMEPROD que je n'arrive pas à mettre dans la tête !


Ben il te faut urgentement adhérer à la SPA !
;-)
AV





Avatar
Jacquouille
Bonjour Pierre
Aus deux entêtés,

Tu crois réellement que JPS oserait te laisser prendre la place de son âne?
Quid du plus têtu, alors?
Quoi que, les ânes ont un GPS dans la tête. Et pour revenir at home, c'est
parfois pratique. -)))

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
Jacquouille.

"Pierre CFI [mvp]" a écrit dans le message de
news:
ah, la spa, voilà le secret de AV
je me demande si quelqu'un voudra m'adopter ? jps ? peut etre , pour que
je tire sa carriole dans sa verte campagne

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"AV" a écrit dans le message de
news:e%
Ah ces fameux SOMMEPROD que je n'arrive pas à mettre dans la tête !


Ben il te faut urgentement adhérer à la SPA !
;-)
AV









Avatar
JEAN-PAUL
Merci Pounet, mais je voudrez appliquer cela dans un classeur XlS dans
lequel je voudais que pour chacune des personnes apparaisse le détail des
coupures à donner sur une ligne
avec une ligne par parsonne (soit environ 100)
et en bas de tableau le montant total de chaque coupure à demander à la
banque
Merci à tous les passionnés qui prodiguent leur savoir avec générosité
JP

"Pounet95" a écrit dans le message de news:

Re,
J'suis pas breton, mais je suis têtu quand même.
En VBA
:
Sub Distribuer()
Dim Reste As Currency
Dim Eur(15) As Currency
Eur(1) = 500
Eur(2) = 200
Eur(3) = 100
Eur(4) = 50
Eur(5) = 20
Eur(6) = 10
Eur(7) = 5
Eur(8) = 2
Eur(9) = 1
Eur(10) = 0.5
Eur(11) = 0.2
Eur(12) = 0.1
Eur(13) = 0.05
Eur(14) = 0.02
Eur(15) = 0.01

Rep = InputBox("Montant à distribuer", vbYesNo)
If Rep = vbNo Then Exit Sub

msg = "Répartition" & Chr(10)
Reste = CDbl(Replace(Rep, ".", ","))
For i = 1 To 15
If i < 15 Then
nb = Int(Reste / Eur(i))
Else
nb = Reste / Eur(i)
End If
If nb > 0 Then
If i < 10 Then
msg = msg & "Billets de " & Format(Eur(i), "##0 ¤") _
& " ......... " & Format(nb, "##0") & Chr(10)
Else
msg = msg & "Pièces de " & Format(Eur(i), "0.00 ¤") _
& " ......... " & Format(nb, "##0") & Chr(10)
End If
End If
Reste = Reste - nb * Eur(i)
'Debug.Print Eur(i), nb, Reste
Next i
MsgBox msg
End Sub

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"JEAN-PAUL" a écrit dans le message de
news:
Salut à tous,

Jai bricolé un calcul qui me permets de calculer les nombre de pièces et
de
billets de chaque type à commander à la banque afin de payer des sommes
d'argent à diverses personnes.
Mais j'ai fréquemment le prob suivant:
Exemple: pour 43.29?, j'ai 2X20?
1x2?
1x1?
1x0.2?
1x0.05?
et 1x0.02? + 2x0.01?
au lieu de 2x0.02?
Le total est correct mais cela m'ennuye.
Quelqu'un a-t-il une solution toute faite?

Merci.

JP









Avatar
Pounet95
Bonsoir,
Donc la réponse d'Alain est bien adaptée et sans VBA qui plus est.

Merci de dire merci. Mais il faut faire attention, car il y a risque à
passer pour un lèche-cul si on est trop poli ;o))))

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"JEAN-PAUL" a écrit dans le message de
news:
Merci Pounet, mais je voudrez appliquer cela dans un classeur XlS dans
lequel je voudais que pour chacune des personnes apparaisse le détail des
coupures à donner sur une ligne
avec une ligne par parsonne (soit environ 100)
et en bas de tableau le montant total de chaque coupure à demander à la
banque
Merci à tous les passionnés qui prodiguent leur savoir avec générosité
JP

"Pounet95" a écrit dans le message de news:

Re,
J'suis pas breton, mais je suis têtu quand même.
En VBA
:
Sub Distribuer()
Dim Reste As Currency
Dim Eur(15) As Currency
Eur(1) = 500
Eur(2) = 200
Eur(3) = 100
Eur(4) = 50
Eur(5) = 20
Eur(6) = 10
Eur(7) = 5
Eur(8) = 2
Eur(9) = 1
Eur(10) = 0.5
Eur(11) = 0.2
Eur(12) = 0.1
Eur(13) = 0.05
Eur(14) = 0.02
Eur(15) = 0.01

Rep = InputBox("Montant à distribuer", vbYesNo)
If Rep = vbNo Then Exit Sub

msg = "Répartition" & Chr(10)
Reste = CDbl(Replace(Rep, ".", ","))
For i = 1 To 15
If i < 15 Then
nb = Int(Reste / Eur(i))
Else
nb = Reste / Eur(i)
End If
If nb > 0 Then
If i < 10 Then
msg = msg & "Billets de " & Format(Eur(i), "##0 ¤") _
& " ......... " & Format(nb, "##0") & Chr(10)
Else
msg = msg & "Pièces de " & Format(Eur(i), "0.00 ¤") _
& " ......... " & Format(nb, "##0") & Chr(10)
End If
End If
Reste = Reste - nb * Eur(i)
'Debug.Print Eur(i), nb, Reste
Next i
MsgBox msg
End Sub

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"JEAN-PAUL" a écrit dans le message de
news:
Salut à tous,

Jai bricolé un calcul qui me permets de calculer les nombre de pièces
et
de
billets de chaque type à commander à la banque afin de payer des sommes
d'argent à diverses personnes.
Mais j'ai fréquemment le prob suivant:
Exemple: pour 43.29?, j'ai 2X20?
1x2?
1x1?
1x0.2?
1x0.05?
et 1x0.02? + 2x0.01?
au lieu de 2x0.02?
Le total est correct mais cela m'ennuye.
Quelqu'un a-t-il une solution toute faite?

Merci.

JP













1 2