Dictionnaire de dictionnaire - Module de Classe

Version imprimable

Bonjour,

Mon problème est le suivant : J'aimerai insérer un dictionnaire dans un autre dictionnaire. Le second dictionnaire se trouve dans un module de classe "Program_Parameters" parmi d'autres variables. De même il existe un module de classe "Tag_Parameters" pour stocker les variables du deuxième dictionnaire.

Le code permettant le remplissage des dictionnaire compile correctement :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
 
Sub Fill_Dic_Program_P()
 
    Dim CM_Program_P As New Program_Parameters
    Dim CM_Tag_P As New Tag_Parameters
    Dim I As Long
    Dim J As Long
    Dim Key_i As String
    Dim Tag_j As String
 
    Set Dic_Program_P = Nothing
    Set Dic_Program_P = New Dictionary
 
    With ThisWorkbook.Sheets(MySheet).Range(MyRange)
 
        For I = 1 To .Rows.Count
 
            Key_i = .Cells(I, 1)
 
            With ThisWorkbook.Sheets(TAG_P_SheetName).Range(Tag)
 
                For J = 1 To .Rows.Count
 
                    Set CM_Program_P.Dic_Tag = Nothing
                    Set CM_Program_P.Dic_Tag = New Dictionary
 
                    Tag_j = .Cells(J, 1).Value
 
                    CM_Tag_P.Tag_Output = X
                    CM_Tag_P.Tag_Value = Y
 
                    If Not CM_Program_P.Dic_Tag.Exists(Tag_j) Then
                        CM_Program_P.Dic_Tag.Add Tag_j, CM_Tag_P
                    End If
 
                    Set CM_Tag_P = Nothing
 
                Next J
 
            End With
 
            '***
 
            If Not Dic_Program_P.Exists(Key_i) Then
                Dic_Program_P.Add Key_i, CM_Program_P
            End If
 
            Set CM_Program_P = Nothing
 
        Next I
 
    End With
 
End Sub

Mais c'est en voulant accéder aux informations du deuxième dictionnaire que j'ai un problème.

J'ai essayé :

Code:

1
2
3
 
 
Test_1 = Dic_Program_P.Item(Key_i).Dic_Tag.Item(Tag_j).Tag_Output

Mais j'obtiens l'erreur 424 : objet requis.

Je suis à votre disposition pour plus de détails

Merci pour votre aide,

Nicolas

Salut

Un remarque, pourquoi toujours mettre à Nothing avant de définir un objet, c'est inutile, un objet est par défaut initialisé à Nothing à sa création.

Lorsqu'on utilise les Modules de class, il y a des choses à respecter, regarde les tutoriels a ce sujet.
Par exemple

Code:

Set CM_Program_P.Dic_Tag = New Dictionary

N'a rien a faire ici, il faut faire ça dans ton module de Class, dans la procédure initialize().

Ici ça n'ira pas non plus
Code:

1 2 3 4 5 If Not CM_Program_P.Dic_Tag.Exists(Tag_j) Then CM_Program_P.Dic_Tag.Add Tag_j, CM_Tag_P End If Set CM_Tag_P = Nothing
Tu dis à CM_Program_P.Dic_Tag, "voila je te dis de regarder ce tableau" (tu ne lui transmet pas le tableau, juste sont "adresse". Puis 2 lignes plus bas, tu détruit le tableau, les valeurs sont perdues et il ne sait plus ou regarder.

Je pense que tu devrais nous expliquer clairement ce que tu veux faire dans la globalité. Il serait peut être intéressant de faire une collection de dictionnaires dans ton Modules de Class Program_Parameters.

Une dernière chose, attention au fuites mémoire avec les imbrications de modules de Classe.

++
Qwaz

24/07/2011, 17h53
NicolasC91

Merci beaucoup pour ta réponse.

J'ai mis l'instruction suivante dans la procédure "initialize" du module de classe et tout marche.

Code:

Set CM_Program_P.Dic_Tag = New Dictionary

Merci encore ;)
17/11/2011, 14h51
Buffalo1214

Bonjour qwazerty,
Je rebondis sur ta dernière remarque... et sort un peu du sujet initial...
A quoi penses-tu lorsque tu parles de fuite mémoire ?

Citation:

Envoyé par Qwazerty

Salut

Une dernière chose, attention au fuites mémoire avec les imbrications de modules de Classe.

++
Qwaz
17/11/2011, 14h57
kiki29

Salut, http://fr.wikipedia.org/wiki/Fuite_de_m%C3%A9moire

J'avais eu des problèmes de fuite mémoire quand j'apprenais la logique objet. J'avais fait des objets en contenant d'autres en contenant d'autres, et si je lançais ma macro 10 fois de suite(sans mise à jour, sur exactement le même référentiel), c'était de plus en plus lent.

J'ai dont pris l'habitude de mettre des

Code:

Set MonObjet = nothing

partout, à chaque fin de paragraphe ou je les ai ouverts. 99% d'entre eux ne servent sans doute à rien, mais comme il est arrivé que certains servent.....

J'ai donc des trucs un peu lourds du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub MaJTousFeuillets() Dim WS As Worksheet, AWS As Worksheet Dim WB As Workbook Application.ScreenUpdating = False Set AWS = ActiveSheet Set WB = ActiveWorkbook For Each WS In WB.Worksheets WS.Activate WS.Select Call MAJLignes(WS) Next AWS.Select Set AWS = Nothing Set WS = Nothing Set WB = Nothing Application.ScreenUpdating = True End Sub
Mais je suis à peu près sur de ne rien laisser passer.....(les puristes vont sans doute me flamber, mais c'est l'occasion de m'améliorer).

Citation:

Envoyé par Buffalo1214

Bonjour qwazerty,
Je rebondis sur ta dernière remarque... et sort un peu du sujet initial...
A quoi penses-tu lorsque tu parles de fuite mémoire ?

Salut

En fait, lors des recherches faites sur le sujet, il est apparu, si je me souviens bien :!:... que lorsque dans un module de classe, tu utilises des variables, dont le type est lui même issue d'un autre module de classe, les objets contenus dans ta variable ne sont pas éliminés automatiquement de la mémoire.
C'est ce que d'écrit el_slapper

Il faut donc dans ce cas, bien veiller à vider les espaces mémoires en passant à Nothing les variable contenu dans ta classe "finale"... vu que même moi, j'ai du mal à comprendre ce que je viens de noter, je vais te donner un exemple bidon

On définit une première classe
Code:

1 2 3 4 5 6 7 8 'MaClassUn Dim MonClasseur as workbook 'Puis au cours du code tu affectes un classeur à la variable, dnas le init de la class par exemple Set MonClasseur = Workbooks("ClasseurTeste") '[...]Suite du code
Ensuite on défini une deuxième classe qui utilise la première
Code:

1 2 3 4 5 6 7 'MaClassDeux Dim MaFeuille as Worksheets Dim UneMaClassUn as New MaclassUn 'provoque le init de la classe MaClassUn et donc l'affectation du classeur MonClasseur qu'elle contient en variable 'Dans la suite du code, au niveau du init de cette class par exemple Set MaFeuille = Workbook(0).Sheets("Feuil1")
Maintenant dans un module standard, on utilise notre classe MaClassDeux
Code:

1 2 3 sub Essai() Dim VarMaClassDeux as new MaClassDeux
En faisant cela on initialise une instance de MaClassDeux qui elle même initialise une instance de MaClassUn.

On se retrouve donc avec une variable MonClasseur contenue dans MaClassUn et une variable MaFeuille dans MaClassDeux.

Arrivé à la fin de la procédure Essai
La variable varMaClassDeux est automatiquement libérée (inutile de la passer à Nothing.
La variable MaFeuille est elle aussi libérée automatiquement
La variable MonClasseur par contre n'est pas libérée automatiquement, il faudra donc gérer sa libération dans le corps de MaClassDeux en faisant
Code:

1 2 'Par exemple dans le finalize de MaClassDeux MaClassUn.MonClasseur = nothing
:!:Mes explications sont à prendre avec des pincettes, je fais cela de mémoire, il se peut donc que tout ne soit pas exact...:!:

En gros il faut autant que possible éviter de faire trop d'imbrication de Module de Class

++
Qwaz