Erreur incompréhensible avec UBound [Résolu]

[Neuromancien2]

Bonsoir,

J'ai le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
Dim aSubmenu1(3,2,0)
 
aSubmenu1(0,0,0) = 1
aSubmenu1(0,1,0) = "Test1"
aSubmenu1(1,0,0) = 2
aSubmenu1(1,1,0) = "Test2"
aSubmenu1(2,0,0) = 3
aSubmenu1(2,1,0) = "Test3"
 
Response.Write("nb: " & UBound(aSubmenu1,1))

Ca me donne : nb: 344444. Je ne comprends rien...

[roro06]

Bonjour

Chez moi, pas de problème :

Code :

nb:3

Faudrait voir la suite du code, à mon (humble) avis, les 4 sont générés après.

Fais :

Code :

Response.Write("nb: " & UBound(aSubmenu1,1) & "<br>")

[Neuromancien2]

Merci. J'ai vraiment l'impression d'être un idiot là...