[VBA Excel]collection et type

Version imprimable

Bonjour,
J'ai une collection qui contient des éléments d'un type que j'ai créé.
Voici un code provoquant une erreur.
Code:

1 2 3 4 5 6 7 8 9 10 11 Public Type typeTest test1 As String test2 As String End Type Public Sub test() Dim test As typeTest Dim colTest As New Collection test.test1 = "test1" test.test2 = "test2" col.Add test End Sub
Si vous arrivez à modifier pour enlever cette erreur de compilation, c'est bon.

Message d'erreur:

Citation:

Erreur de compilation:

Seuls les types définis par l'utilisateur et qui sont définis dans les modules d'objets publics peuvent être convertis depuis ou vers un variant, ou passés à des fonctions à liaison tardive

J'ai essayé de déclarer en private ou en public rien n'y fait.
Je ne vois pas comment définir des types dans des modules d'objets publics.
Qu'est-ce qu'un module d'objets public?

Le seul truc s'y rapprochant que j'ai trouvé dans la FAQ c'est:http://vb.developpez.com/faq/?page=Langage#renvoi_type
Mais bon, c'est pour renvoyer un type, le mettre dans ue collection c'est une autre affaire.

Dans le forum, il y a ça:http://www.developpez.net/forums/viewtopic.php?p=121804, mais je n'y arrive toujours pas.

Je pourrai sans doute contourner le problème en faisant autrement, mais j'aimerai bien comprendre.

Merci d'avance.

25/02/2005, 15h07
HPJ
Citation:
Envoyé par Tan

Code:

1 2 3 4 5 Dim colTest As New Collection test.test1 = "test1" test.test2 = "test2" col.Add test End Sub
Ta collection s'appelle colTest par col...

Tu ne peux pas mettre de variables de type personnalisé dans une collection, uniquement des variables de type simple ou des objets (module de classe = module d'objet public).
Il y a peut être un moyen en mettant dans la collection l'adresse de ta variable de type personnalisé.
25/02/2005, 15h35
Tan

Merci de ta réponse.

Pour le nom de la collection, c'était une faute de frappe (j'ai créé un code simple provoquant l'erreur, et je l'ai mal tapé). Mais cela ne change rien au problème.
Puisque les collections ne peuvent contenir de type utilisateur, j'ai changé de méthode.

Pourtant rien ne disait le contraire dans l'aide.

Citation:

Envoyé par Aide : objet Collection a écrit:

L'objet Collection constitue un moyen pratique de faire référence à un groupe d'éléments connexes, en les considérant comme un seul objet. Les éléments contenus dans l'objet sont appelés membres. Il leur suffit d'avoir pour point commun l'appartenance à l'objet collection. Ils ne doivent pas nécessairement posséder le même type de données.

Citation:

Envoyé par Aide : définition membre a écrit:

membre :
Élément d'une collection, d'un objet ou d'un type défini par l'utilisateur.

Tant pis, je regarderai ce que tu as dis sur l'adresse de la variable.

Merci beaucoup.

Avec les adresses:

Code:

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
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
 
Public Type typeTest
    test1 As String
    test2 As String
End Type
 
Public Sub test()
 
    Dim test As typeTest
    Dim test2 As typeTest
    Dim colTest As New Collection
 
    test.test1 = "test1"
    test.test2 = "test2"
    ' ajoute l'adresse de la variable test
    colTest.Add VarPtr(test)
 
 
 
    ' récupère .test1 (4 octets représentant un pointeur sur la chaine .test1)
    CopyMemory VarPtr(test2.test1), colTest(1), 4
    ' récupère .test2 (les 4 octets suivants représentant un pointeur sur la chaine .test2)
    CopyMemory VarPtr(test2.test2), colTest(1) + 4, 4
 
    MsgBox test2.test1 & " " & test2.test2
 
End Sub

Pas facile à commenter... il faut avoir des notions sur les pointeurs...

25/02/2005, 18h22
Tan

Merci beaucoup