Discussion :

[label55]

Bonjour,

Je cherche depuis quelque temps comment passer un tableau comme argument d'une fonction et je ne trouve pas.... Je sais ca peut paraitre bete mais bon on fait ce que l'on peut.

Merci d'avance pour votre aide

Pierre

[ucfoutu]

Bonjour,

tu es certain d'envoyer vers une fonction et non une procédure ?

Si tel est bien le cas, voilà un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Command3_Click()
  Dim montabl(4) As Integer
  For i = 0 To 3
    montabl(i) = i
  Next
  MsgBox traitons(montabl())
End Sub
 
Private Function traitons(montab) As String
  If montab(1) = 1 Then traitons = "oui" Else traitons = "non"
End Function

[Vld44]

je n'aime pas trop ta méthode ucfoutu, tu ne types pas ton tableau là dans ton proto de procédure

J'avoue que je bloque aussi, je ne me suis jamais posé la question à vrai dire ou alors je n'ai pas cherché j'ai utilisé un variant ... ce qui revient au même que ce que tu viens de faire.

C'est bizarre, c'est impossible de déclarer en variable de procédure/fonction un tableau du genre : mavar() as string

[OhMonBato]

Je suis à côté de la plaque avec ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Option Explicit
Dim toto(2, 2) As Single
Private Sub Command1_Click()
Affiche toto()
End Sub
Private Sub Form_Load()
Dim i As Byte, j As Byte
For i = 0 To 2
  For j = 0 To 2
    toto(i, j) = Rnd
  Next j
Next i
End Sub
 
Public Function Affiche(tableau() As Single)
Dim c As Byte, r As Byte
For c = 0 To UBound(tableau, 1)
  For r = 0 To UBound(tableau, 2)
    Debug.Print tableau(c, r)
  Next r
Next c
End Function

[Vld44]

aaaaaaaaaah mais ... Non non ton truc marche ohmonbato et c'est d'ailleurs la solution ... J'ai malheureusement fait les tests chez moi qui ont conduit à mon dernier post en passant la variable BYVAL, ce qui ne marche visiblement pas avec les tableaux

+1 !

[ucfoutu]

je n'aime pas trop ta méthode ucfoutu, tu ne types pas ton tableau là dans ton proto de procédure

J'avoue que je bloque aussi, je ne me suis jamais posé la question à vrai dire ou alors je n'ai pas cherché j'ai utilisé un variant ... ce qui revient au même que ce que tu viens de faire.

C'est bizarre, c'est impossible de déclarer en variable de procédure/fonction un tableau du genre : mavar() as string

qu'est qui gène ?
Typons donc ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Command3_Click()
  Dim montabl(4) As String
  For i = 0 To 3
    montabl(i) = Str(i)
  Next
  MsgBox traitons(montabl())
End Sub
 
Private Function traitons(montab() As String) As String
  MsgBox montab(1)
End Function

[Vld44]

oui voilà, ça évite les "late bound lacks"