[A-03] Methode Add et Item d'une collection

Bonjour,

J'ai un petit pbm qui ne doit pas être si énorme que ça mais je suis un peu juste en VBA...
J'utilise dans mon programme une collection afin de stockée des objets que j'ai defini dans un module de classe.
Quand je tente de pusher un objet dans la collection par la methode add, j'ai l'erreur suivante : Erreur d'exec 438, Propriété ou methode non geree par cet objet

Ca peut venir de mes references qui ne sont pas bonnes?

Voici le code

Code:

---

1 2 3 4 5 6 7

Dim calculRecordCurrent As New C_CALCUL_RECORD calculRecordCurrent.SalProfil = oRecordSet.Fields("SAL_PROFIL").Value ... Dim calculRecordCollection As New Collection 'erreur calculRecordCollection.Add (calculRecordCurrent)

---

Merci d'avance pour vos réponses

bjr

ne pas mettre de parenthèses autour du paramètre, ça force le passage par valeur

Merci Beaucoup, ca marche ! ;)

Derniere petite question, j'ai la meme erreur quand je veux faire un pop sur la collection.

voici mon code:

Code:

---

1 2 3 4 5

'L'index vaut 1 index = calculRecordCollection.Count 'la methode item plante... calculRecordTemp = calculRecordCollection.Item(index)

---

J'ai tenté de supprimer les parenthèses mais ca ne veut pas compiler.

si c'est un objet il faut un Set :

Code:

---

Set calculRecordTemp = calculRecordCollection.Item(index)

---