Discussion :

[VazyoO]

Salut, j'ai un soucis avec ma boucle for mais je ne vois pas pourquoi
Mon formulaire :


Mon module :

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
Module ModProd
    Public PROD(3, 3) As String
    Dim somme As Integer
    Public Sub Init_Prod()
        PROD(0, 0) = "P1"
        PROD(0, 1) = "Draps plats"
        PROD(0, 2) = "12.98"
        PROD(0, 3) = "7"
 
        PROD(1, 0) = "P2"
        PROD(1, 1) = "Serviettes 50x80"
        PROD(1, 2) = "5.86"
        PROD(1, 3) = "12"
 
        PROD(2, 0) = "P3"
        PROD(2, 1) = "Sacoches"
        PROD(2, 2) = "4.99"
        PROD(2, 3) = "8"
 
        PROD(3, 0) = "P4"
        PROD(3, 1) = "Sèche-cheveux"
        PROD(3, 2) = "26.45"
        PROD(3, 3) = "4"
 
    End Sub
 
    Public Sub TotalStock()
        somme = PROD(0, 3) + PROD(1, 3) + PROD(2, 3) + PROD(3, 3)
    End Sub
 
End Module

Le code de mon formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form1
 
    Private Sub BtnAfficher_Click(sender As Object, e As EventArgs) Handles BtnAfficher.Click
        Init_Prod()
        Dim ligne As String
        ligne = ""
        For i = 0 To 4
            ligne = ligne & vbCrLf & PROD(i, 0) + " - " + PROD(i, 1) + " - " + PROD(i, 2) + " - " + PROD(i, 3)
        Next i
        LstBoxProd.Items.Add(ligne)
    End Sub
End Class

Et voici l'erreur afficher lorsque je clique sur mon bouton :

[MABROUKI]

Bonjour

De 0 à 4 il y a 5 elements ,ton tableau bidemensiionnel est declaré tableau (3,3) c.à.d 4 lignes et 4 colonnes.
il vaut mieux utiliser cette sntaxe :

Code :

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

1
2
3
4
5
6
7
8
 
  Init_Prod()
        Dim ligne As String
        ligne = ""
        For i = 0 To ModProd.PROD.GetUpperBound(0)
            ligne = ligne & vbCrLf & PROD(i, 0) + " - " + PROD(i, 1) + " - " + PROD(i, 2) + " - " + PROD(i, 3)
        Next i
        ListBox1.Items.Add(ligne)

bon code.

[VazyoO]

Super, merci !