VB -Passage de tableau en paramaetre

Voila !!

Option Explicit

Function IsTableauFull(ByRef Tableau() As Single) As Boolean
Dim index As Integer

IsTableauFull = True
index = 0
On Error Resume Next
Do
If Tableau(index) = 0 Then
If Err Then Exit Do
On Error GoTo 0
IsTableauFull = False
Exit Function
End If
index = index + 1
Loop
On Error GoTo 0
End Function


Private Sub Form_Load()
Dim test(10) As Single

test(0) = 1
test(1) = 9
test(2) = 8
test(3) = 7
test(4) = 10
test(5) = 0
test(6) = 8
test(7) = 7
test(8) = 10
test(9) = 10
test(10) = 1

MsgBox IsTableauFull(test)
End Sub

Bonjour,

ton erreur réside dans le fait de dimensionner le tableau
dans la déclaration !

public function place(t(1 to MAX) as single) as boolean

si :

public function place(t() as single) as boolean

ici la fonction recoit 1 tableau mais ne renvoie que vrai ou faux !
elle ne modifie pas le tableau !
c'est comme : public function place(byval t() as single) as boolean

si :
public function place(byref t() as single) as boolean
ici le byref te permet de modifier le tableau !

la déclaration suivante devrait être suffisante :

public function place(t() as single) as boolean
( le ByVal étant implicite)

Lupin

oK merci pour vos réponses c cool :)