Collection et module de classe

Bonjour,

J'ai créé un module de classe qui définit 3 variables de type string. Ensuite dans un module simple, je veux ajouter des variables issues du module de class dans une colelction. Il semble cependant que la collection ajoute trois fois le même Item ???

Je vous joins le fichier.

Le module de classe est le module compo_Security

Le module classique est lDonnées.

Merci beaucoup pour votre aide

Bonsoir,

Chaque objet "Compo" est ajouté 3 fois dans la collection.

 
              compo.ancien = tablIndex(i, 1)
                Debug.Print "ancien " & compo.ancien
                collect.Add compo

                compo.actuel = wsE.Cells(x, 5)
               ' Debug.Print "actuel " & compo.actuel
                collect.Add compo

                compo.suivant = tablIndex(i + 1, 1)
                ' Debug.Print "suivant " & compo.suivant
                collect.Add compo

A remplacer ainsi :

• créer l'objet "Compo",
• alimenter la propriété Ancien
• alimenter la propriété Actuel
• alimenter la propriété Suivant
• Et ajouter l'objet à la collection

 
              compo.ancien = tablIndex(i, 1)
                Debug.Print "ancien " & compo.ancien
                compo.actuel = wsE.Cells(x, 5)
               ' Debug.Print "actuel " & compo.actuel                
                compo.suivant = tablIndex(i + 1, 1)
                ' Debug.Print "suivant " & compo.suivant
                collect.Add compo

cf PJ, à tester.

Bonne soirée

Bouben

Super, merci bien