Bonjour,

dans la macro "Check_Package_Argentine", je souhaite stocker dans une collection d'objets, les cashflows avec leur montant
et leur numero de package, dont les trois dernières lettres finissent par AVA.
la premiere partie fonctionne j'ai teste.
Dans la 2eme partie, je souhaite ajouter les intérets des cashflows qui ont le meme packagenumber et les stocker
dans une variable qui serait les interets du package.

C'est la ou cela coince. avez vous des idees pour ecrire cela?

Merci

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
47
48
Sub Check_Package_Argentine()
 
Dim cf As CashFlow
Dim sommeInterets, packageNumber As Double
Dim i, j As Integer
Set listeCF = New Collection
 
sommeInterets = 0
Application.ScreenUpdating = False
 
'passage en mode de calcul manuel
Application.Calculation = xlManual
 
Sheets("7-Argentine-OPU").Activate
 
For i = 1 To 50
 
        If Right(Cells(i, 9).Value, 3) = "AVA" Then
 
            Set cf = New CashFlow
            cf.packageNumber = Range("F" & i).Value
            cf.montant = Range("Y" & i).Value
            listeCF.Add cf
 
        End If
 
Next i
 
For i = 1 To listeCF.Count
 
    For j = i + 1 To listeCF.Count
 
    montant(i) = cf(i).montant
    packageNumber(i) = cf(i).packageNumber
    montant(j) = cf(j).montant
    packageNumber(j) = cf(j).packageNumber
 
    sommeInterets = 0
    If (packageNumber(i) = packageNumber(j) And cf(i).montant <> cf(j).montant) Then
    sommeInterets = sommeInterets + cf(i).montant + cf(j).montant
    MsgBox "les intérêts du package argentine " & packageNumber(i) & " sont de " & sommeInterets
    End If
 
    Next j
 
Next i
 
End Sub