coupures pour décompte monétaires

diouri lahsen · 31 Décembre 2010

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 · 31 Décembre 2010

Re : coupures pour décompte monétaires

Bonsoir

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

Bonne soirée

sioum · 1 Janvier 2011

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 · 1 Janvier 2011

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 :

Code:

=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 · 1 Janvier 2011

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 · 1 Janvier 2011

Re : coupures pour décompte monétaires

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

Code:

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 · 1 Janvier 2011

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

coupures pour décompte monétaires

diouri lahsen

XLDnaute Nouveau

Pièces jointes

Banzai64

XLDnaute Accro

Pièces jointes

sioum

XLDnaute Occasionnel

Pièces jointes

Tibo

XLDnaute Barbatruc

Pièces jointes

hoerwind

XLDnaute Barbatruc

Pièces jointes

bof

XLDnaute Occasionnel

diouri lahsen

XLDnaute Nouveau

Discussions similaires