Discussion :

[Troopers]

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
24
 
Public Function GetTest(dDate As Date) As clsTest()
Dim lRc As ADODB.Recordset
Dim lTest() As clsTest
 
    If lNoTechnicien <> cINDEFINI Then
        Set lRc = New ADODB.Recordset
        lRc.Open "SELECT TPL_NUMERO FROM TEST_PLANIFIE ", gConnexion, adOpenForwardOnly, adLockReadOnly
        While Not lRc.EOF
            If IsDim(lTest) Then
                ReDim Preserve lTest(1 To UBound(lTest) + 1)
            Else
                ReDim lTest(1 To 1)
            End If
            Set lTest(UBound(lTest)) = New clsTest
 
            lRc.MoveNext
        Wend
        lRc.Close
        Set lRc = Nothing
 
        GetTest = lTest
    End If
End Function

[bidou]

il me semble que la déclaration devrait être
Public Function GetTest(dDate As Date) As clsTest()

et le retour
GetTest = lTest

[Troopers]

merci à bidou pour la solution