Discussion :

[vodiem]

salut à tous,

j'ai une collection de variables typées à faire mais prb:
je n'arrive pas à ajouter de variables et je ne vois pas comment les récupérer dans la collection.
en clair: je sais pas comment faire une collection de variables typées.
(je ne parle pas de collection d'objet ou de type classic:variant,string...)

voilà un exemple du code:

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
29
30
31
32
33
Option Compare Database
Option Explicit
 
Type ta
    unephrase1 As String
    unephrase2 As String
End Type
 
Type tc
    uneCollection As Collection
    uneVariableLocal As Variant
End Type
 
Public c As tc
 
Sub essai2()
Dim a As ta
a.unephrase1 = "phrase1"
a.unephrase2 = "phrase2"
 
c.uneCollection.Add Item:=a, Key:="1"  '<- erreur ici sur le type de a
End Sub
 
Public Sub essai1()
Set c.uneCollection = New Collection
Dim n As ta
 
essai2
 
For Each n In c.uneCollection
    MsgBox n.unephrase1                '<- problème aussi ici
Next n
End Sub

tc est une variable typée contenant la collection.
ta est le type que je veux mettre dans collection.

merci de votre aide

[LedZeppII]

Salut Vodiem,

J'ai bien peur que ça ne soit pas possible (VBA ne convertit par les types définis par l'utilisateur en Variant)
et que le seul moyen soit de convertir ton type de données personnalisé (ta) en module de classe.
Du coup ta variable a sera typée objet et non plus 'type de donnée défini par l'utilisateur'.

Mais un avange quand même, tu peux instancier (New ta) au fur et à mesure, et alimenter ta collection.
Avec une variable non objet tu serai obligé de créer un tableau pour avoir plusieurs variables du même type.

A+

[vodiem]

je te remercie LedZeppII pour ta réponse,

je suis parti de l'aide sur "add, méthode de collection" qui dit:

Ajoute un membre à un objet Collection.

avec liaison sur la définition de membre:

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

mais le message d'erreur dit:

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

donc: j'ai essayé de déclarer dans un module de classe mais en vain sans le typer objet.

Mais un avange quand même, tu peux instancier (New ta) au fur et à mesure, et alimenter ta collection.
Avec une variable non objet tu serai obligé de créer un tableau pour avoir plusieurs variables du même type.

effectivement j'ai été surpris de constater que la méthode add n'instancie pas l'objet.
avec une variable non objet: on peut aussi l'instancier, et si je pouvais mettre dans une collection le problème du tableau ne se poserais pas.

en tous cas: je te remercie LedZeppII.

je laisse encore la discution ouverte qq temps, pour être sur de pas passer à côté d'une solus.
même les avis confortant l'impossibilité de créer une collection de variables typées sont les bienvenus.

[random]

ceci fonctionne

crée un module de classe nommé maclasse
contenu

Code :

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

1
2
3
 
Public phrase1 As String
Public phrase2 As String

et insére un module de code avec ce sub

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
 
 
Sub tcoll()
Dim u As Variant
Dim utilcl As New maclasse
Dim macoll As New Collection
utilcl.phrase1 = "Souvent pour s'amuser"
utilcl.phrase2 = "les hommes d'équipage"
macoll.Add Item:=utilcl
Set utilcl = Nothing
utilcl.phrase1 = "Prennent des albatros,"
utilcl.phrase2 = "vastes oiseaux des mers"
macoll.Add Item:=utilcl
Set utilcl = Nothing
For Each u In macoll
MsgBox (u.phrase1 & " " & u.phrase2)
Next u
End Sub

sinon

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub bis()
Dim var1(1 To 2) As String
Dim macoll As New Collection
Dim boucle
var1(1) = "coucou"
var1(2) = "de Bavière"
macoll.Add var1
var1(1) = "pond"
var1(2) = "au printemps"
macoll.Add var1
For Each boucle In macoll
MsgBox (boucle(1) & " " & boucle(2))
Next boucle
End Sub

je confirme ne pas savoir ajouter à une collection un type défini par un utilisateur
plusieurs essais infructueux

[vodiem]

random:

je confirme ne pas savoir ajouter à une collection un type défini par un utilisateur
plusieurs essais infructueux

ben ca va être chaud si toi aussi tu n'y arrive pas

LedZeppII m'avait proposé aussi en MP un module de classe, que j'ai du aussi faire entre temps pour palier au pb.

mais je reste très perplexe sur ton exemple, car j'avais fait un essai, en gros comme tcoll() mais j'avais omis le "Set utilcl = Nothing" ce qui m'a donné un collection avec que le dernier objet. j'ai conclu que add n'instanciais pas l'objet mais ajoutait le pointeur de l'objet dans la collection. sinon dois je conclure que le "Set utilcl = Nothing" libère l'objet et l'affectation de utilcl.phrase1 crée une nouvelle instance de l'objet?
mais dans bis() là c'est clair qu'il n'y a pas de nouvelle instanciation du tableau.
dois je conclure que add instancie l'item?
je ne comprends alors pas pourquoi le "Set utilcl = Nothing" qui semble indispensable...

ps: merci à tous deux pour vos codes.

[random]

En fait c’est tout simple tant que l’objet est instancié la collection gère un pointeur (une référence vers cet objet).
Quand l’instance disparaît (set ma var=nothing) ou est remplacée (set mavar=new objectype)
Elle est remplacée dans la collection (lorsque c’est possible par sa valeur)