Bonjour à tous,
Je souhaiterais faire un lettrage comptable sous excel.
Pour ceux qui ne savent pas ce qu'est un lettrage :
J'ai un virement global d'un client de 1457€, règlement qui paye x factures pour différentes agence.
Je dois trouver à quelles factures ou avoir correspondent ce règlement et prendre en compte le fait qu'il n'y ai pas de solutions.
J'ai commencé à coder mais ça ne marche pas tip top :
Donc je me permets de solliciter votre aide.
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
43
44
45
46 Sub lettrage() Dim tablo() As Integer Dim max As Integer Dim val As Integer max = Range("a65536").End(xlUp).Row val_cherche = Range("c5") ReDim tablo(1 To max) For i = 1 To max tablo(i) = Range("a" & i) Next i 'fin remplissage tablo 'calcul par nivo For nivo = 1 To UBound(tablo) - 1 For l = 1 To UBound(tablo) 'prends en compte le terme de départ suiv = 0 'définit les termes suivants ' Do Until suiv > UBound(tablo) - 1 val_inter = 0 If val = val_cherche Then GoTo u ' suiv = suiv + 1 'val_inter = tablo(l) For k = l To nivo val_inter = val_inter + tablo(k) 'val = tablo(l) + tablo(suiv) ' Application.Sum(tablo(suiv) + tablo(max)) ' MsgBox (SommeTableau(tablo)) If k = nivo And l > 1 Then val_inter = 0 For k2 = 1 To UBound(tablo) val_inter = val_inter + tablo(k2 + 1) Next k2 End If Next k val = val_inter '- tablo(l) 'Loop Next l Next nivo u: If val = val_cherche Then MsgBox "ok" Else MsgBox "Pas de solution" End If End Sub
Merci d'avance pour l'attention que vous porterez à mon problème.
Thomas
Partager