Discussion :

[rv26t]

Met un point d'arret, puis voit sur quel i il plante, vérifie ton init si cette valeur a été renseignée.
Dans mon exemple du post 11 les listBox se remplissent.

[scarfunk]

voila le code complet pour un exemple

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
Public Const K_ACCES = 4
 
Public Structure ParamNiv 
    dim acces() as integer
End Structure
 
Public mesParamNiv as PramNiv
 
 
Sub InitParamNiv()
 
   Redim mesParamNiv.acces(0 to K_ACCES)
 
   Dim i as integer
 
   mesParamNiv.acces(0) = "A" 
   mesParamNiv.acces(1) = "B" 
   mesParamNiv.acces(2) = "C" 
   mesParamNiv.acces(3) = "D" 
 
end sub
 
 
Private sub Ajout_Click(...)
 
    dim i as integer
 
    For i = 0 to K_ACCES
       ComboBox2.Items.Add(mesParamNiv.acces(i))
    next
 
end sub

C'est plus comprehensible comme sa?

[rv26t]

mesParamNiv.acces(4) n'est pas renseignée, elle contient donc null, ce qui plante lors de l'ajout dans la ListBox (ce que je disais avant - post 18)

[scarfunk]

Il y a eu une confusion.

Lorsque je définissais ma constante K_ACCES = 4 cela voulais voulait dire pour moi qu'il y avait 4 élements (0,1,2,3)

J'ai modifier la valeur de la constante :

Code :

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

1
2
 
Public Const K_ACCCES = 3

Ca marche.Merci pour votre aide