Bonjour à tous, tout est dans le titre!

J'ai défini ce type:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Public Type TextCode
    Text As String
    Code As String
End Type
J'ai une fonction qui prend en paramètre un tableau de ce type, et qui renvoie un autre tableau filtré du même type.

Lorsque j'appelle ma fonction, j'ai la fameuse erreur qui rend fou !

Comment faire ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Private Function FilterSelectedAciers(aSelectedAciers() As TextBox) As TextBox()
    Dim aAciersFiltered() As TextBox
    ReDim aAciersFiltered(100)
 
' MON TRAITEMENT
 
    FilterSelectedAciers = aAciersFiltered
End Function
getAciers renvoi un tableau de TextBox
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
 aSelectedAciers = getAciers     ' FONCTIONNE
 aSelectedAciersFiltered = FilterSelectedAciers(aSelectedAciers) 'PLANTE