Discussion :

[salseropom]

Bonjour,

je souhaite créer un dictionnaire dont l'item est une structure (et non un double ou une string).
Voici ce que j'ai écrit à l'intérieur de ma classe

Code :

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

1
2
3
4
5
6
7
 
Private Type InfoPhaseOut
    cad As String
    date As String
    tonnage As Double
    lb As String
End Type

et dans une fonction de la classe

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim tonnagePhaseOut As Object 'dictionnaire, la cle de recherche est la CAD, tonnagePhaseOut(cad) contient une structure InfoPhaseOut
 
Set tonnagePhaseOut = CreateObject("Scripting.Dictionary")
tonnagePhaseOut.comparemode = vbTextCompare 'on ignore la casse de la cle de recherche
If Not tonnagePhaseOut.Exists("123456") Then tonnagePhaseOut.Add "123456", InfoPhaseOut 'initialisation
tonnagePhaseOut("123456").cad = "123456"
tonnagePhaseOut("123456").date = "201812"
tonnagePhaseOut("123456").tonne = 12.5
tonnagePhaseOut("123456").lb = "toto"

le code plante à la ligne

Code :

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

1
2
 
tonnagePhaseOut("123456").cad = "123456"

Savez-vous pour quelle raison ?

D'avance merci bcp

Bonne journée

[salseropom]

J'ai trouvé une solution en passant par une classe, ce qui donne :

Code :

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

1
2
3
 
If Not tonnagePhaseOut.Exists("123456") Then tonnagePhaseOut.Add "123456", New InfosPhaseOut 'initialisation
tonnagePhaseOut("123456").create "123456", "201812", 12.5, "LB"

[boisgontierjacques]

Bonjour,

On peut utiliser un Array()

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
  Type Personne
  Nom As String
  age As Integer
End Type
 
Sub essai()
  Set d = CreateObject("scripting.dictionary")
  Dim a(1 To 5) As Personne
  Dim temp As Personne
  Dim temp2 As Personne
  a(1).Nom = "Dupont": a(1).age = 40
  a(2).Nom = "Balu": a(2).age = 30
  a(3).Nom = "Charlie": a(3).age = 20
  a(4).Nom = "Durand": a(4).age = 25
  a(5).Nom = "Campas": a(5).age = 35
  For i = 1 To 5
    clé = a(i).Nom
    b = Array(a(i).Nom, a(i).age)
    d(clé) = b
  Next i
  MsgBox d.Item("Balu")(1)
  Tbl = Application.Transpose(Application.Transpose(d.items)) ' dictionnaire dans array b(1 to n,1 to 3)
  MsgBox Tbl(2, 2)
End Sub

Boisgontier

[salseropom]

Re,

merci bcp pour cette super astuce de passer par un Array !

Je garde ta solution dans mon aide-mémoire

Bonne soirée