coupures pour décompte monétaires

[diouri lahsen]

bonsoir et bonne année a tous,

mon problème c'est que a chaque fin de mois je dois établir une liste des indemnités kilométrique te je dois donner cette liste au caissier avec détaille monétaires, ce que je cherche est ce que il y a moyen de le faire sans compter manuellement comme l'exemple ci-joint

 

[Banzai64]

Re : coupures pour décompte monétaires

Bonsoir

Avec une macro déjà faite pour un autre post

Bonne soirée

 

[sioum]

Re : coupures pour décompte monétaires

bonsoir

j'ai préféré créé un ficher avec des formules par contre je ne retrouve pas tes montants

voici le fichier

 

[Tibo]

Re : coupures pour décompte monétaires

Bonjour et meilleurs voeux à tous,

Une autre solution formule en insérant une colonne vide juste après les montants et avec utilisation de la fonction SOMMEPROD

en D7 :

=ENT(ARRONDI(($B7-SOMMEPROD($C7:C7*$C$5:C$5));2)/D$5)

Formule à recopier vers le bas et vers la droite

Voir avec le fichier joint

@+

 

[hoerwind]

Re : coupures pour décompte monétaires

Bonjour et bonne année à tous,

En pièce jointe un petit fichier dont je fais usage depuis de nombreuses années.

 

[bof]

Re : coupures pour décompte monétaires

Bonjour,
Autre macro allégée (Peut travailler ligne par ligne ou sur toute la sélection) :

Sub Ventil()
Dim Tablo, i%, k%, iR%, iC%, Nbre As Currency, o As Range
Tablo = Array(200, 100, 50, 20, 10, 5, 1, 0.5, 0.2, 0.1, 0.05)

For Each o In Selection

With o
  Nbre = .Value
  iC = .Column + 1
  iR = .Row
End With
  
For i = 0 To UBound(Tablo)
  k = Int(Nbre / Tablo(i))
  Nbre = Nbre - k * Tablo(i)
  Cells(iR, iC + i) = IIf(k > 0, k, "")
Next

Next
End Sub

A+

 

[diouri lahsen]

Re : coupures pour décompte monétaires

merci a vous tous pour votre aide ce qu'il me faut, et bonne et heureuse année 2011