coupures pour décompte monétaires

B

Banzai64

XLDnaute Accro

• 31 Décembre 2010

• #2

Re : coupures pour décompte monétaires

Bonsoir

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

Bonne soirée

 

Pièces jointes

• coupures pour décompte monétaires V001.xls

  34 KB · Affichages: 223

Vote positif 0 Vote négatif

S

sioum

XLDnaute Occasionnel

• 1 Janvier 2011

• #3

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

 

Pièces jointes

• Copie de coupures.xls

  15 KB · Affichages: 166

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 1 Janvier 2011

• #4

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

@+

 

Pièces jointes

• diouri.zip

  5.6 KB · Affichages: 111

Dernière édition: 1 Janvier 2011

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 1 Janvier 2011

• #5

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.

 

Pièces jointes

• coupures.xls

  33.5 KB · Affichages: 148
• coupures.xls

  33.5 KB · Affichages: 153
• coupures.xls

  33.5 KB · Affichages: 154

Vote positif 0 Vote négatif

B

bof

XLDnaute Occasionnel

• 1 Janvier 2011

• #6

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+

 

Vote positif 0 Vote négatif

D

diouri lahsen

Guest

• 1 Janvier 2011

• #7

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

 

Vote positif 0 Vote négatif