Discussion :

[elfiestador]

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 :

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

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

[Arkham46]

bjr

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

[elfiestador]

Merci Beaucoup, ca marche !

[elfiestador]

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

voici mon code:

Code :

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

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.

[Arkham46]

si c'est un objet il faut un Set :

Code :

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

Set calculRecordTemp = calculRecordCollection.Item(index)