Discussion :

[Rayanea]

Bonjour,

J'ai voulu faire une double boucle pour supprimer les éléments d'une collection. La suppression d'un élément d'une collection réduit automatiquement le nombre d'éléments et les numéros d'index et peut entraîne une erreur.

Après avoir réfléchis à une solution et n'ayant rien trouvé, j'ai contourner le problème avec un "On Error Resume Next".

Auriez-vous une solution plus élégante à me suggérer ?

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
On Error Resume Next
 
With ReportingPeriodCollection
    For i = .Count To 1 Step -1
        For j = .Count To 1 Step -1
            If i <> j And .Item(i).PeriodYear = .Item(j).PeriodYear Then
                Select Case .Item(i).PeriodYear
                    Case Is <> YearEndPeriod
                        If .Item(i).AnnualFactor = 1 Then
                        .Remove (j)
                        Else
                        .Remove (i)
                        End If
                    Case YearEndPeriod
                        If .Item(i).AnnualFactor > .Item(j).AnnualFactor Then
                        .Remove (i)
                        Else
                        .Remove (j)
                        End If
                End Select
            Cpt = Cpt + 1
            End If
         Next j
    Next i
End With

[Invité]

Bonjour,

Pour faire ce genre d'opération, j'utilise une matrice à deux dimensions (X,Y) où X est le contenu d'un enregistrement + 1 champ "Drapeau", Y les enregistrements. Cette matrice est initialisée dès le début du programme.

Le principe est de balayer la matrice et de noter dans le champ "Drapeau", les enregistrements à écarter selon les conditions de votre programme. Cela fait, on supprime les enregistrements de la liste, et on recharge la liste avec les enregistrements de la matrice non écartés.

Nb : Pour balayer une matrice sur la dimension Y :

Code :

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

1
2
3
For I = Lbound(matrice,2) to Ubound(matrice,2)
 
Next I

Cordialement.

[Invité]

Eric KERGRESSE a raison,
si je supprime une valeur dans une collection par exemple l'item(1), l'item(2) devient l'item(1) d'ou les erreur mais pire tu ne scanne plus tous les tous les items.
il faut sauvegarder les positions des items à supprimer dans une variable tableau, puis après scanner le tableau de la dernière ligne à la première.

[mercatog]

Sans tester, on boucle pour tester et mettre -1 dans l'item concerné et faire une autre boucle pour supprimer les items "cochés"

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
With ReportingPeriodCollection
    For i = 1 To .Count - 1
        For j = i + 1 To .Count
            If .Item(i).PeriodYear = .Item(j).PeriodYear Then
                Cpt = Cpt + 1
                If .Item(i).PeriodYear <> YearEndPeriod Then
                    k = IIf(.Item(i).AnnualFactor = 1, j, i)
                Else
                    k = IIf(.Item(i).AnnualFactor > .Item(j).AnnualFactor, i, j)
                End If
                .Item(k).PeriodYear = -1
            End If
        Next j
    Next i
 
    For i = .Count To 1 Step -1
        If .Item(i).PeriodYear = -1 Then .Remove i
    Next i
End With

[Rayanea]

Hello,

J'ai utilisé la méthode avec la variable '-1', c'est propre et ça marche très bien !

Merci pour votre aide.