Discussion :

[sassiII]

Bonjour à tous

j'ai un fichier excel contenant une liste des montants des factures, je veux deviser chaque montant à plusieurs montants inférieur à 5000 ( le total des montants obtenue doit correspondre, bien sure au montant d'origine).

le fichier est en pièce jointe

[Menhir]

Attention : en français "deviser" peut être interprété comme "ajouter une devise".
Je pense que tu voulais dire "diviser".

Il n'est pas nécessaire d'utiliser une macro pour faire ça. Il est possible de le faire avec des simple formules.

Si tu veux que tous les montants soient égaux :

Code :

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

=(MIN(MOD(A1;5000);1)+ENT(A1/5000))&" x "&TEXTE(A1/(MIN(MOD(A1;5000);1)+ENT(A1/5000));"0,00")

Si tu veux avoir un maximum de montant à 5000 plus le solde :

Code :

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

=(ENT(A1/5000))&" x 5000 + "&TEXTE(A1-ENT(A1/5000)*5000;"0,00")

[sassiII]

1000 merci

juste une chose, si je veux qu les montants soit dans des cellules ....CAD au lieu de 5*4250 il me donne 4250 4250 4250 4250 4250 chaque montant dans une cellule??!!!


merci

[Menhir]

juste une chose, si je veux qu les montants soit dans des cellules ....CAD au lieu de 5*4250 il me donne 4250 4250 4250 4250 4250 chaque montant dans une cellule??!!!

Ca serait sans doute faisable mais un peu compliqué et peu pratique à copier ou déplacer.

Il serait plus simple de mettre dans deux cellules le montant et la quantité :

Code :

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

1
2
=MIN(MOD(A1;5000);1)+ENT(A1/5000))
=A1/(MIN(MOD(A1;5000);1)+ENT(A1/5000))

[BENNASR]

bonjour
si vous cherchez et pour une raison que j'ignore à faire ça en VBA avec des sous facture de 5000 Dt et une facture pour le solde vous pouvez tester ce code
(je propose de garder, par prudence les données de base dans un onglet et envoyer le résultat un autre onglet

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub diviserFacture()
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
Application.ScreenUpdating = False
F2.Cells.ClearContents
F2.Range("A3") = F1.Range("A3")
F2.Range("A7") = F1.Range("A7")
F2.Range("b7") = F1.Range("b7")
F2.Range("c7") = F1.Range("c7")
F2.Range("d7") = F1.Range("d7")
F2.Range("e7") = F1.Range("e7")
Dim Tablo
Dim i As Long
Tablo = F1.Range("A8", "E" & F1.Range("E" & Rows.Count).End(xlUp).Row)
L = 8
For i = LBound(Tablo, 1) To UBound(Tablo, 1)
If Tablo(i, 1) <> "" Then
nb = Int(Tablo(i, 5) / 5000)
For Fact = 1 To nb
F2.Cells(L, 1) = Tablo(i, 1)
F2.Cells(L, 2) = Tablo(i, 2)
F2.Cells(L, 3) = Tablo(i, 3)
F2.Cells(L, 4) = Tablo(i, 4) & "-" & Fact
F2.Cells(L, 5) = 5000
L = L + 1
Next Fact
F2.Cells(L, 1) = Tablo(i, 1)
F2.Cells(L, 2) = Tablo(i, 2)
F2.Cells(L, 3) = Tablo(i, 3)
F2.Cells(L, 4) = Tablo(i, 4) & "-" & (nb + 1)
F2.Cells(L, 5) = Tablo(i, 5) - (5000 * nb)
L = L + 1
 End If
 Next i
 
 F2.Select
 MsgBox ("Oumourek 6 zit sahbi")
 
 Application.ScreenUpdating = True
End Sub

[sassiII]

bjr

Exactement ça

merci infiniment