Je pense qu'avec les aménagements suivants cela devrait aller mieux (mais à vérifier)
Function RecSelection() As myCompany()
...
RecSelection = TabComp.myCompanies |
Pour exemple, voici une fonction qui fonctionne en VB6
Function test() As String()
Dim s() As String
ReDim s(5) As String
test = s
End Function
|
edit: je sais pas si en vba ça marchera aussi bien
Message édité par tegu le 06-07-2006 à 10:00:57