Tout ceci fonctionne parfaitement chez moi:
Global course(0 To 40, 0 To 5) As Variant
Global nbvague(99)
Global nbcourse
Global Spinner
Function RemplirCourse()
nbcourse = 1
nbvague(1) = 1
Spinner = 1
For L = 1 To nbcourse
For N = 1 To nbvague(L)
course(Spinner, 1) = L ´ c´est là qu´il y a problème
course(Spinner, 2) = N
Msg = " Entrer le DECALAGE DE TEMPS ( en seconde) "
Title = " DECALAGE DE TEMPS"
course(Spinner, 5) = InputBox(Msg, Title)
If course(Spinner, 5) = " " Then
MsgBox ( "décalage = 0 pour vague " & N & " de la course " & L)
course(Spinner, 5) = 0
End If
Spinner = Spinner + 1
Next N
Next L
End Function
La preuve: je vais en mode debugger, je tape
? RemplirCourse, je tape 999 pour la msgbox et j´ai le résultat suivant:
? course(1, 1) & " / " & course(1, 2) & " / " & course(1, 5)
1 / 1 / 999