Discussion :

[abdoulrazak434]

bonsoir, la famille très content de poster ce messege, alors je cherche à reproduire ce qui est sur cette image.
1-je creer une table nommée monnaie avec comme champs tblmonnaie(id,argent,cocher) avec les valeurs des billets et pieces
je voudrais en fonction d'une somme donnée cocher des cases comme sur la figure

D'avance merci et très cordialement

[abdoulrazak434]

Bonsoir, après longue reflexion ce petit algorithme m'est venu en tête qui doit etre traduit en vba

1-comparer la valeur que je souhaite decomposer avec les valeurs de la table tblmonnaie

2-creer un tableau avec tous les nombres qui sont plus plus petit que ma valeur

3-diviser en utilisant le modulo de ma valeur avec le nombre le plus élevé de mon tableau

4-determiner le multiplicateur de ma valeur en utilisant une formule multiplicateur = valeur-reste_division/(le nombre le plus elevé de mon tableau)

5- je coche la case concernée en ecrivant le multiplicateur devant la case

6-recuperer le reste_division du modulo de l'etape 3, elle redevient la nouvelle valeur si >=0 sinon operation terminer

7- on repete la même chose de l'etape 1 à l'etape 6

merci d'avance à traduire en code vba, ou s'il y'a un autre algo plus simple je prends

très cordialement

[ClaudeLELOUP]

Bonjour,

Voici un exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Compare Database
Option Explicit
  Dim lReste As Long
  Dim sCoupure As String
 
Private Sub NbreCoupures()
  Me("txt" & sCoupure) = Fix(lReste / sCoupure)
  lReste = lReste - sCoupure * Me("txt" & sCoupure)
End Sub
Private Sub txtMontant_AfterUpdate()
  Dim tabCoupures() As String
  Dim sListeDesCoupures As String
  Dim i As Integer
  sListeDesCoupures = "10000|5000|2000|1000|500|200|100|50|25|10|5|1" 'la liste des coupures en ordre décroissant
  lReste = Me.txtMontant
  tabCoupures = Split(sListeDesCoupures, "|")
  For i = 0 To UBound(tabCoupures)
    sCoupure = tabCoupures(i)
    Call NbreCoupures
  Next i
End Sub

Reviens-moi si tu as un problème avec la compréhension du code.

[abdoulrazak434]

Bonjour merci à tous et particulièrement Mr ClaudeLELOUP
je vais tester tous ça et l'adapter au case à cocher et reposter

merci et très cordialement

[Jean-Philippe André]

Salut,

la solution de Claude est parfaite en l'etat

Je donne juste pour information que l'algorithme que l'on peut utiliser derriere ce sujet est celui de Dijkstra
https://fr.wikipedia.org/wiki/Algorithme_de_Dijkstra

[abdoulrazak434]

bonjour, je vient vous remercier pour votre apport, en passant l'algo de djisktra un truc de malade très bien pensée.

j'ai adapté le code de Mr ClaudeLELOUP à mon besoin comme indiqué sur ma première image poster.
j'ain joint le fichier ça peut depanner un jour.

je passe le post à resolu.


Très cordialement20170210abdoulrazak434.rar