bonjour
j'ai crée un tout petit programme, mais lorsque je l'execute il y a une erreur.
Voici le code :
Citation :
Private Sub nbcouches_Change()
Dim couchescachees(5) As Single
couchescachees(1) = couche1
couchescachees(2) = couche2
couchescachees(3) = couche3
couchescachees(4) = couche4
couchescachees(5) = couche5
Dim i As Integer
For i = 1 To nbcouches.Text
couchescachees(i).Locked = False
End
For i = nbcouches.Text To 5
couchescachees(i).Locked = True
End
End Sub
|
l'erreur est au niveau du gras. QQun a une idée ?
merci