Discussion :

[tmlpqsdpmdlc]

Bonjour,

voici ce que j'ai

dans ma classe:

Code :

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

1
2
 
dim tableau as integer

dans mon code (j'utilise une collection)

Code :

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

1
2
3
 
dim monTableau(18) as integer
maCollection.Item(i).tableau=monTableau

Mais je n'arrive pas à restituer les élément du tableau comme ceci

Code :

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

1
2
 
msgbox maCollection.Item(i).tableau(j)

Que puis je faire ?

Merci de votre aide

[boisgontierjacques]

Bonjour,

Tableau dans un élément de dictionnaire.

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
 
Sub EssaiDictionnaire()
  Set d = CreateObject("Scripting.Dictionary")
  ville = "Lyon"
  d.Item("Martin") = Array(ville, 5000, #12/10/1980#)
  MsgBox d.Item("Martin")(0)
 
  Dim a(1 To 3)
  a(1) = "Paris": a(2) = 5000: a(3) = #12/13/1945#   ' tableau a()
  d.Item("Dupont") = a
  MsgBox d.Item("Dupont")(2)
  b = d.Item("Dupont")              ' éléments de Dupont dans un tableau b()
  MsgBox b(3)
  For Each c In d.Item("Dupont")
    MsgBox c
  Next c
End Sub

Jacques Boisgontier

[Promethee25]

Bonjour,

Dans ta classe, tableau n'est pas défini comme un tableau mais comme un simple entier...
Essaie peut-être ceci:

Code :

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

dim tableau() as integer