Erreur -> Valeur Null dans mon tableau

1 pièce(s) jointe(s)

Salut, mon objectif est d'afficher les valeurs de mon tableau dans une listbox, mais je crois que mon tableau n'as pas bien été rempli.
Mon formulaire :
Pièce jointe 607268
Mon module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Module ModProd
 
    Sub init_Prod()
 
        Dim PROD(4, 4) As String
        PROD(0, 0) = "P1" : PROD(0, 1) = "Dras 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èches-cheveux" : PROD(3, 2) = 26.45 : PROD(3, 3) = 4
    End Sub
 
End Module

Et le code de mon bouton afficher :

Code:

1
2
3
4
5
6
7
8
9
Public Class Form1
    Dim PROD(4, 4) As String
 
    Private Sub BtnAfficher_Click(sender As Object, e As EventArgs) Handles BtnAfficher.Click
        init_Prod()
        Dim v = PROD(0, 0)
        LstBoxProd.Items.Add(v)
    End Sub
End Class

Voila si quelqu'un sait qu'est ce qui ne fonctionne pas

Salut

En enlevant la ligne re déclaration de la variable PROD dans la sub init_Prod() cela devrait le faire.
En déclarant la variable dans cette sub, PROD devient une variable locale, alors que la variable globale tu l'as déclaré au niveau de la Class Form1.
Ses 2 variables ont des entités différentes.

Effectivement, en plus il faut déclarer la variable du tableau en public dans le Module. Merci