Hello world!

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
For Each oLot In LotColl
        For Each oCategorie In oLot.Categories
            For Each oTache In oCategorie.Taches
                For Each oSousTache In oTache.Sous_Taches
                    For Each oPointageTache In oSousTache.PointageTache
                        If oPointageTache.ID_USER = oUser.ID And oPointageTache.hasRight = True Then
                            If Not lastLotID = oLot.ID Then
                                UserLotColl.Add oLot
                                lastLotID = oLot.ID
                                lotIndex = UserLotColl.Count
                            End If
                            If Not lastCatID = oCategorie.ID Then
                                UserLotColl(lotIndex).Categories.Add oCategorie
                                lastCatID = oCategorie.ID
                                catIndex = UserLotColl(lotIndex).Categories.Count
                            End If
                            If Not lastTacheID = oTache.ID Then
                                UserLotColl(lotIndex).Categories(catIndex).Taches.Add oTache
                                lastTacheID = oTache.ID
                                tacheIndex = UserLotColl(lotIndex).Categories(catIndex).Taches.Count
                            End If
                            UserLotColl(lotIndex).Categories(catIndex).Taches(tacheIndex).Sous_Taches.Add oSousTache
                        End If
                    Next oPointageTache
                Next oSousTache
            Next oTache
        Next oCategorie
Next oLot
Ce code tourne en boucle car il considère que la sous tâche ajoutée l'est dans l'objet du for each au dessus (oTache)...
Cependant je parcours 2 collections différentes (une que je lis, l'autre que je remplis), je ne vois vraiment pas ce qui provoque ce bug.
A noter que j'ai essayé en remplaçant les for each Object in Object.Collection par for each Object in Collection(i).Collection(j).Object sans succès...

On dirait tout simplement qu'il considère les deux collections comme identiques...

No comprendo, mais peut-être vous saurez?

Je sais pas si j'ai été clair donc n'hésitez pas à me demander des détails!