Discussion :

[belfaigore]

Bonjour,
Je cherche à travailler sur un tableau à 2 dimensions qui fait parti d'un type utilisateur, voici un code qui met en evidence mon probleme.
En effet, le tableau MyzTab.Tab2D se remplit bien (je peux voir les valeur dans la fenetre espion) mais impossible d'accéder au valeur par MyzTab.Tab2D(i,j). Je ne comprend pas pourquoi ? ? ?

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Option Explicit
 
Private Const NB_LIGNE = 4
Private Const NB_COLONNE = 400
 
'TYPE UTILISATEUR
Private Type zTab
    Tab2D() As Double
End Type
 
Dim MyzTab As zTab
 
 
'CHARGEMENT DU FORMULAIRE
Private Sub Form_Load()
    Dim i, j As Integer
 
    ReDim MyzTab.Tab2D(NB_LIGNE - 1, NB_COLONNE - 1)
 
    'Initialise le tableau
    For i = 0 To UBound(MyzTab.Tab2D)
        For j = 0 To NB_COLONNE - 1
            MyzTab.Tab2D(i, j) = CDbl(CStr(i) & "." & Format(CStr(j), "000"))
        Next j
    Next i
End Sub
 
'CLIQUE SUR LE BOUTON
Private Sub Command1_Click()
    ShowInList MyzTab.Tab2D
End Sub
 
'FONCTION QUI AFFICHE LES ELEMENTS DU TABLEAU DANS LA LISTBOX
Public Sub ShowInList(ByRef zTab2D() As Double)
    Dim i, j As Integer
 
    For i = LBound(zTab2D) To UBound(zTab2D)
        'Erreur à la compilation sur LBound : Tableau attendu ? ? ?
        For j = LBound(zTab2D(i)) To UBound(zTab2D(i))
            List1.AddItem zTab2D(j, i)
        Next j
    Next i
 
    '-------------------------------------------------------------------------------------
    'Expression             | Valeur                            | par type
    '-------------------------------------------------------------------------------------
    '- zTab2D               |                                   | Double(0 to 3,0 to 399)
    '  + zTab2D(0)          |                                   | Double(0 to 399)
    '  + zTab2D(1)          |                                   | Double(0 to 399)
    '  + zTab2D(2)          |                                   | Double(0 to 399)
    '  - zTab2D(3)          |                                   | Double(0 to 399)
    '      zTab2D(3,0)      | 3                                 | Double
    '      zTab2D(3,0)      | 3.001                             | Double
    '      zTab2D(3,0)      | 3.002                             | Double
    '      zTab2D(3,0)      | 3.003                             | Double
    '           .           |   .                               |    .
    '           .           |   .                               |    .
    '           .           |   .                               |    .
    '      zTab2D(3,397)    | 3.397                             | Double
    '      zTab2D(3,398)    | 3.398                             | Double
    '      zTab2D(3,399)    | 3.399                             | Double
    'IsArray(zTab2D)        | Vrai                              | Boolean
    'IsArray(zTab2D(0))     | <Indice en dehors de la plage>    | Integer
    '-------------------------------------------------------------------------------------
 
End Sub

[Delbeke]

Dans la ligne

Code :

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

Dim i,j as integer

i est declaré comme un variant, a remplacer par

Code :

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

Dim i As Intege,J as Integer

Petitet erreur egalement dans

Code :

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

For j = LBound(zTab2D(i)) To UBound(zTab2D(i))

A remplacer par

Code :

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

For j = LBound(zTab2D) To UBound(zTab2D)

je n'ai pas vb sous la main pour tester ton source, donc je ne garantis rien

[belfaigore]

zTab2D est un tableau à 2 dimensions (ici 4 x 400)

For j = LBound(zTab2D) To UBound(zTab2D)

Ce code me donne la taille de la première dimension càd 4-1=3 alors que je souhaite connaitre la taille de la deuxieme dimension càd 400-1=399, c'est pourquoi j'utilise

For j = LBound(zTab2D(i)) To UBound(zTab2D(i))

en ayant declararé j comme integer, j'ai toujours le même probleme

[Delbeke]

Oups, désolé
La syntaxe est

Code :

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

For j = LBound(zTab2D,1) To UBound(zTab2D,2)

le ,1 pour le premier incide et le ,2 pour le second

[AdHoc]

Bonjour,
sur lBound
ou
http://msdn2.microsoft.com/fr-fr/library/95b8f22f.aspx