Bonsoir,
J'ai le code suivant :
Ca me donne : nb: 344444. Je ne comprends rien...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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))
Partager