Formule pour dispatcher une somme

Résolu/Fermé

SuperFun Messages postés 829 Date d'inscription mardi 13 février 2007 Statut Membre Dernière intervention 4 avril 2023 - Modifié le 9 nov. 2018 à 07:13
SuperFun Messages postés 829 Date d'inscription mardi 13 février 2007 Statut Membre Dernière intervention 4 avril 2023 - 9 nov. 2018 à 12:10

Bonjour à vous et merci de me lire.
Logiciel Excel 2016.
Je cherche une formule pour dispatcher une somme d'argent en fonction des billets et monnaies en circulation.
Coupures à disposition :

CHF 1000.- CHF 200.- CHF 100.- CHF 50.- CHF 20.- CHF 10.- CHF 5.- CHF 2.- CHF 1.-
L'idée est que si j'ai par exemple la somme de CHF 4368.-
La somme (4368) se trouve (par exemple) dans la cellule E2
Les coupures viennent s'inscrire dans les cellules H2, H3, H4, H5, H6, H7, H8, H9, H10
et en H11 un Total (pour control).

La formule me calcule les coupures idéales à savoir :

4 x CHF 1000.-
1 x CHF 200.-
1 x CHF 100
1 x CHF 50.-
0 x CHF 20.-
1 x CHF 10.-
1 x CHF 5.-
1 x CHF 2.-
1 x CHF 1.-

Total : 4368.-

A vos claviers, le premier ou la première qui me trouve la solution aura toute ma reconnaissance, pour les autres un merci de vous être penché sur ma problématique.

A voir également:

Formule pour dispatcher une somme
Formule excel somme - Guide
Formule excel - Guide
Formule si et - Guide
Somme si couleur - Guide
Formule moyenne excel - Guide

2 réponses

Réponse 1 / 2

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
9 nov. 2018 à 08:09

Bonjour,

A tester

A chaque changement de valeur en E2 le calcul se fait automatiquement
https://www.cjoint.com/c/HKjhdMiouCu

SuperFun Messages postés 829 Date d'inscription mardi 13 février 2007 Statut Membre Dernière intervention 4 avril 2023 37
9 nov. 2018 à 08:34

Merci,

petit soucis lorsque j'essai d'ouvrir le fichier une fenêtre vient disant "impossible d'ouvrir le fichier…….. format ou extension n'est pas valide"...

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
9 nov. 2018 à 08:36

Re,

Teste avec ce lien
https://mon-partage.fr/f/BR4vMJoK/

SuperFun Messages postés 829 Date d'inscription mardi 13 février 2007 Statut Membre Dernière intervention 4 avril 2023 37
9 nov. 2018 à 08:45

Hello, super

cela marche bien mais comment puis-je utiliser ça sur mon tableau qui contiens plusieurs lignes
ligne1: 3340
ligne 2 : 123
ligne 4 : 456
ligne X : 0
ligne 60: 3456

pour avoir un disptching par ligne?

Merci

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
9 nov. 2018 à 08:51

Re,

Et bien commence par mettre un classeur exemple pour que je regarde

SuperFun Messages postés 829 Date d'inscription mardi 13 février 2007 Statut Membre Dernière intervention 4 avril 2023 37
9 nov. 2018 à 09:03

Cela sera plus simple en effet:

https://mon-partage.fr/f/nNlZ7aj7/

le tri se fait dans l'onglet Tri coupure.

en bas on retrouve le total de chaque coupure nécessaire au tableau

encore merci

Réponse 2 / 2

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
9 nov. 2018 à 08:22

Re,

On peut même améliorer en remplaçant toute la macro par celle-ci pour le Total et pour afficher que les valeurs utilisées

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%, mem%, Total%
  If Not Application.Intersect(Target, Range("E2")) Is Nothing Then
    mem = Cells(2, 5).Value
    For i = 2 To 10
      Cells(i, 8).Value = Int(mem / Cells(i, 1).Value) & " x CHF " & Cells(i, 1)
        If Int(mem / Cells(i, 1).Value) = 0 Then
          Cells(i, 8).Font.Color = RGB(255, 255, 255)
        Else
          Cells(i, 8).Font.Color = RGB(0, 0, 0)
        End If
      Total = Total + (Int(mem / Cells(i, 1).Value) * Cells(i, 1).Value)
      mem = mem - (Int(mem / Cells(i, 1).Value) * Cells(i, 1).Value)
    Next i
    Cells(12, 8).Value = " Total : CHF " & Total
  End If
End Sub

Discussions similaires

je veut créer des codes

exo pix

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters