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

10 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
isabelle
bonjour Jean Paul,

pour arriver au résultat de 43.29

2 X 20.00 = 40.00
1 X 2.00 = 2.00
1 X 1.00 = 1.00
1 X 0.20 = 0.20
0 X 0.50 = 0.00
4 X 0.02 = 0.08
1 X 0.01 = 0.01
43.29


isabelle


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 Jean-Paul,
Ceci peut-être :

x est le nom de la cellule contenant la somme à répartir
j'ai remplacé les signes = par le double quote

A répartir Billet Nbre Reste Réparti
43,29 500 "ENT(x/B2) "x-B2*E2 "B2*C2
200 "ENT(D2/B3) "D2-B3*C3 "B3*C3
100 "ENT(D3/B4) "D3-B4*C4 "B4*C4
50 "ENT(D4/B5) "D4-B5*C5 "B5*C5
20 "ENT(D5/B6) "D5-B6*C6 "B6*C6
10 "ENT(D6/B7) "D6-B7*C7 "B7*C7
5 "ENT(D7/B8) "D7-B8*C8 "B8*C8
2 "ENT(D8/B9) "D8-B9*C9 "B9*C9
1 "ENT(D9/B10) "D9-B10*C10 "B10*C10
0,5 "ENT(D10/B11) "D10-B11*C11 "B11*C11
0,2 "ENT(D11/B12) "D11-B12*C12 "B12*C12
0,1 "ENT(D12/B13) "D12-B13*C13 "B13*C13
0,05 "ENT(D13/B14) "D13-B14*C14 "B14*C14
0,02 "D14/B15 "D14-B15*C15 "B15*C15
0,01 "D15/B16 "D15-B16*C16 "B16*C16

Vérif "SOMME(E2:E17)



J'espère que tu pourras recopier cela en A1 dans une feuille
Sinon, je crois que ton problème vient de l'utilisation de ENT sur les
pièces
de 0.02 et 0.01


--
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
Oups ......... c'est illisible et en plus c'est faux car j'ai supprimé des
cellules en route
Je tente une version plus lisible ( le fichier xl ) ci-dessous

http://cjoint.com/?mdtikDBJYn

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


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

Bonsoir Jean-Paul,
Ceci peut-être :

x est le nom de la cellule contenant la somme à répartir
j'ai remplacé les signes = par le double quote

A répartir Billet Nbre Reste Réparti
43,29 500 "ENT(x/B2) "x-B2*E2 "B2*C2
200 "ENT(D2/B3) "D2-B3*C3 "B3*C3
100 "ENT(D3/B4) "D3-B4*C4 "B4*C4
50 "ENT(D4/B5) "D4-B5*C5 "B5*C5
20 "ENT(D5/B6) "D5-B6*C6 "B6*C6
10 "ENT(D6/B7) "D6-B7*C7 "B7*C7
5 "ENT(D7/B8) "D7-B8*C8 "B8*C8
2 "ENT(D8/B9) "D8-B9*C9 "B9*C9
1 "ENT(D9/B10) "D9-B10*C10 "B10*C10
0,5 "ENT(D10/B11) "D10-B11*C11 "B11*C11
0,2 "ENT(D11/B12) "D11-B12*C12 "B12*C12
0,1 "ENT(D12/B13) "D12-B13*C13 "B13*C13
0,05 "ENT(D13/B14) "D13-B14*C14 "B14*C14
0,02 "D14/B15 "D14-B15*C15 "B15*C15
0,01 "D15/B16 "D15-B16*C16 "B16*C16

Vérif "SOMME(E2:E17)



J'espère que tu pourras recopier cela en A1 dans une feuille
Sinon, je crois que ton problème vient de l'utilisation de ENT sur les
pièces
de 0.02 et 0.01


--
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
...... et m .... de m...... :o(((((
je n'y arrive pas.
Comment met-on proprement un fichier excel en pièce jointe via le site
cjoint ?


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

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

Oups ......... c'est illisible et en plus c'est faux car j'ai supprimé des
cellules en route
Je tente une version plus lisible ( le fichier xl ) ci-dessous

http://cjoint.com/?mdtikDBJYn

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


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

Bonsoir Jean-Paul,
Ceci peut-être :

x est le nom de la cellule contenant la somme à répartir
j'ai remplacé les signes = par le double quote

A répartir Billet Nbre Reste Réparti
43,29 500 "ENT(x/B2) "x-B2*E2 "B2*C2
200 "ENT(D2/B3) "D2-B3*C3 "B3*C3
100 "ENT(D3/B4) "D3-B4*C4 "B4*C4
50 "ENT(D4/B5) "D4-B5*C5 "B5*C5
20 "ENT(D5/B6) "D5-B6*C6 "B6*C6
10 "ENT(D6/B7) "D6-B7*C7 "B7*C7
5 "ENT(D7/B8) "D7-B8*C8 "B8*C8
2 "ENT(D8/B9) "D8-B9*C9 "B9*C9
1 "ENT(D9/B10) "D9-B10*C10 "B10*C10
0,5 "ENT(D10/B11) "D10-B11*C11 "B11*C11
0,2 "ENT(D11/B12) "D11-B12*C12 "B12*C12
0,1 "ENT(D12/B13) "D12-B13*C13 "B13*C13
0,05 "ENT(D13/B14) "D13-B14*C14 "B14*C14
0,02 "D14/B15 "D14-B15*C15 "B15*C15
0,01 "D15/B16 "D15-B16*C16 "B16*C16

Vérif "SOMME(E2:E17)



J'espère que tu pourras recopier cela en A1 dans une feuille
Sinon, je crois que ton problème vient de l'utilisation de ENT sur les
pièces
de 0.02 et 0.01


--
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
Re,
Nouvel essai avec cjoint

http://cjoint.com/?mdt7ddHwVT

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

Pour que ton fichier soit disponible zippe le au préalable


"Pounet95" a écrit dans le message de
news:e4%
Re,
Nouvel essai avec cjoint

http://cjoint.com/?mdt7ddHwVT

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



Avatar
Pounet95
Bonjour,
3ème tentative sur cjoint
http://cjoint.com/?megmGtYGU8

--
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
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
AV
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
Ctitout
"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




bonjour à tous
j'ai eu ce problème et une réponse sur :
http://groups.google.fr/groups?q=group:microsoft.public.fr.excel+author:ctitout&startP&hl=fr&lr=lang_fr&selm t2ga%24j1u%241%40wanadoo.fr&rnumU
cela pourra aider.
bonne journée
--

Ctitout B-{}

¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤

1 2