Discussion :

[Vincinho]

Bonjour tout le monde !!

J'ai besoin dans un developpement d'utiliser un tableau a 2 dimensions mais j'ai des problèmes pour lui attribué des valeurs. Voici mon code pour le moment :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim j As Integer = -1
        Dim k As Integer = 0
        Dim tab(,) As String
        tab = New String(,) {}
 
For ligne = 3 To range.Rows.Count
 
            j = j + 1
 
If pdes = "" Then
                tab(j, k) = "Désignation"
                k = k + 1
            End If

Mon but est donc de remplir le tableau qui n'a pas de taille défini en fonction des indices j et k qui sont incrémentés a différents passages dans l'application. Cependant cela ne marche pas, il me met l'erreur

L'index se trouve en dehors des limites du tableau.

alors que j est égale a 1 et k a 0.

Voyez vous une solution ?

[rv26t]

Bonjour,

Erreur normale, puisque tu n'as pas dimensionné le tableau.
Mais VB ne permet de redimensionner que la dernière dimension.

Tu dois donc faire un tableau de tableau.

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
    Public Structure tabK
        Dim tabK() As String
    End Structure
 
    Dim tabJ() As tabK
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim j As Integer = 0
        Dim k As Integer = 0
 
        For j = 0 To 2
            ReDim Preserve tabJ(j)
 
            For k = 0 To 3
                ReDim Preserve tabJ(j).tabK(k)
                tabJ(j).tabK(k) = "Désignation pour J=" & j.ToString & " K=" & k.ToString
            Next
 
        Next
 
    End Sub

Note : la dimension k peut être différente pour chaque indice de j.
Voila l'explication, à toi d'adapter suivant tes besoins.
A+, Hervé