Discussion :

[alexis0587]

Bonjour à tous,

Je souhaite avoir la taille d'un tableau passé à une fonction par ByRef depuis plus d'une heure mais je n'y arrive pas. Donc si quelqu'un peut m'aider !

Ci-dessous mon code :

Code :

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

1
2
3
4
5
6
7
 
Function test(ByRef tab1 As Variant, ByRef tab2 As Variant) As Integer
 
    MsgBox "Tab1 :" & UBound(tab1, 1)
    test = UBound(tab1, 1)
 
End Function

Merci à tous !

[Luc1an0]

Ce code fonctionne chez moi...

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
Private Sub test()
    Dim arr() As String
 
    ReDim Preserve arr(0)
    arr(0) = "ok"
 
    ReDim Preserve arr(1)
    arr(1) = "lol"
 
    ReDim Preserve arr(2)
    arr(2) = "stfu"
 
    ReDim Preserve arr(3)
    arr(3) = "OMG"
 
 
    Taille arr
 
End Sub
 
Private Sub Taille(ByRef test() As String)
    MsgBox UBound(test)
End Sub

[alexis0587]

Chez moi aussi ton code fonctionn en sub mais il ne fonctionne plus en function !
C'est la même chose chez toi?

Merci

[AlainTech]

Bonjour,

Et comme ça:

Code :

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

Function test(ByRef tab1() As Variant, ByRef tab2() As Variant) As Integer

[Luc1an0]

Ce code fonctionne chez moi

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
Private Function Func_Taille(ByRef test() As String) As Integer
    Func_Taille = UBound(test)
End Function
 
Private Sub CommandButton1_Click()
    Dim arr() As String
 
    ReDim Preserve arr(0)
    arr(0) = "ok"
 
    ReDim Preserve arr(1)
    arr(1) = "lol"
 
    ReDim Preserve arr(2)
    arr(2) = "stfu"
 
    ReDim Preserve arr(3)
    arr(3) = "OMG"
 
    MsgBox Func_Taille(arr)
End Sub