Fonction qui retourne une collection d'objets

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Fonction qui retourne une collection d'objets

clems7516

Bonjour a tout le monde,

après de multiples recherches mais sans réelles réponses, je m'en remets a vous. Je voudrais savoir comment retourner une collection d'objets. Je m'explique :

Mon type :

Public Type myCompany
nomCompany As String
numCompany As String
End Type

Public Type TabCompany
myCompanies() As myCompany
End Type

Ensuite j ai une fonction ou je remplis mon tableau qui marche tres bien ! Mais impossible de retourner quelque chose. Ma fonction est déclaré comme tel:
Public Function RecValeurs() As Variant

ou bien comme tel

Public Function RecValeurs() As TabCompany

J'instancie mes types crées plus haut et avec pour instruction de retour :

RecValeurs() = TabCompany

Mais rien a faire dans les deux cas une erreur. Que faire ? Est-il impossible de retourner une collection d'objets ?

Je vous remercie d'avance de votre réponse et A très bientôt je l'espere !

Publicité

Paul Hood

Si c'est ta fonction "RecValeurs" qui retourne une valeur vaut mieux mettre
Tabcompany=RecValeurs()
Non ?

clems7516

Je ne pense pas

c est la fonction qui est egale a la collection d'objets

Paul Hood

Et c'est quoi le message d'erreur ?

clems7516

Voila le code se sera plus sipmle pour comprendre

Code :

Option Explicit
'Creation d'un nouveau type
'Caractéristique d'une societé
Public Type myCompany
nomCompany As String
numDsCompany As String
End Type
'Caractéristique du tableau de societés sélectionnés
Public Type TabCompany
myCompanies() As myCompany
End Type
Function RecSelection() As Variant
'Macro des companies sélectionnées et renvoie un tableau des companies selectionnés
'Tableau composé du nom de la societe et du numero de DataStream
'Variables locales
'Variables de la feuille
Dim objxlWorkbook As Excel.Workbook
Dim objxlSheetLis As Excel.Worksheet
'Variables du tableau
Dim TabComp As TabCompany
Dim MaCompany As myCompany
Dim msg As String
Dim nbCompany As Integer
Dim inc As Integer 'indice d'incrementation
'Initialisation des feuilles excel
Set objxlWorkbook = ActiveWorkbook
Set objxlSheetLis = objxlWorkbook.Worksheets("Liste" )
'Initialisation de l'incrementation
inc = 1
nbCompany = 0
'Calcul du nombre de societés
Do While (objxlSheetLis.Range("NameCompany" ).Offset(inc, 0) <> "" )
If (objxlSheetLis.Range("SelCompany" ).Offset(inc, 0).Value = "X" ) Then
nbCompany = nbCompany + 1
End If
inc = inc + 1
Loop
'Redimension du tableau en fonction du nombre de company
ReDim Preserve TabComp.myCompanies(nbCompany)
'Réinitilisation de l'indice d'incrementation
inc = 1
'Enregistrement de mes societés selectionnés dans un tableau
Do While (objxlSheetLis.Range("NameCompany" ).Offset(inc, 0) <> "" )
If (objxlSheetLis.Range("SelCompany" ).Offset(inc, 0) = "X" ) Then
MaCompany.nomCompany = objxlSheetLis.Range("NameCompany" ).Offset(inc, 0)
MaCompany.numDsCompany = objxlSheetLis.Range("DsCompany" ).Offset(inc, 0)
TabComp.myCompanies(inc) = MaCompany
End If
inc = inc + 1
Loop
'Renvoie le tableau des companies sélectionnés
RecSelection() = TabComp.myCompanies <<<==== ICI L'erreur !!!!
End Function

Voila, maintenant le message d'erreur qui est le suivant :

Only user-defined types defined in public object modules can ve coerced to or from a variant or passed to late-bound functions

Merci d'avance de votre réponse

JihemAir

Je sais pas

Le message, c'est que ton type doit être déclaré public dans un module.

Voir la doc, le chapitre concernant le passage de tableaux en paramètres.

Message cité 1 fois

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

clems7516

JihemAir a écrit :

Le message, c'est que ton type doit être déclaré public dans un module.

Voir la doc, le chapitre concernant le passage de tableaux en paramètres.

Ce qui est le cas, non ? (cf le code)

tegu

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

clems7516

Merci beaucoup a vous, grave a vos conseils j'ai trouvé !!!

Paul Hood

Et la réponse est ?

Publicité

clems7516

Les seuls changements sont :

Function RecSelection() As TabCompany

et

RecSelection = TabComp

Merci Mr tegu

Message édité par clems7516 le 06-07-2006 à 10:25:01

Paul Hood

Et pourquoi tu lui fais pas retourner TabComp (type Tabcompany) à ta fonction recselection ?

clems7516

Oui c est ce que je fais

Message édité

Paul Hood

Alors en conservant le retour d'origine
Public Function RecSelection() As myCompany()
et
RecSelection = TabComp.myCompanies()
ca marche aussi !

clems7516

Tout a fait

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Fonction qui retourne une collection d'objets

Sujets relatifs
[SGDB] PL/SQL : Fonction qui retourne un curseur	Passer des parametres dans une fonction JS
Problème Passage de Paramètres à une fonction Javascript	[MySQL] Fonction recherche complexe
Acceder aux objets d'un rapport	Mes débuts avec les objets et prototypes et setInterval
[matlab] fonction imwrite	fonction mail et CSS
[PHP] parse_ini_file + array retourné
Plus de sujets relatifs à : Fonction qui retourne une collection d'objets

Page générée en 0.075 secondes