VB -Passage de tableau en paramaetre Fermé

Question

Bonjour,

Voila j ai DES tableauX de type single

et je veux creer un fction qui me renvoit 1 si il y a de la place dans le tab 0sinon:

J ai creee:

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

mais il y a erreur sur le passage de parametre

D'où ma question: "Comment faire pour mettre un tableau en paramètre?"

Merci de vos reponses....

erwan · Accepted Answer

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

Utilisateur anonyme · Answer

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

mars · Answer

oK merci pour vos réponses c cool :)

VB -Passage de tableau en paramaetre

3 réponses

Discussions similaires