Passage d'arguments à une procédure : collection, module de classe et propriétés

Bonjour,

J'ai une boite de dialogue contenant des contrôles ListBox que je voudrais remplir automatiquement. Comme il y aura sans doute un paquet de contrôles à remplir, j'aimerais confier le remplissage à une procédure à part, mais je bloque sur le formalisme à appliquer au niveau des arguments, attendu que le remplissage doit se faire via les propriétés d'une classe personnalisée.

J'ai essayé plusieurs choses, mais sans succès, voici le code de la procédure que j'ai tenté de mettre en place au départ

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public Sub RemplListBox(ByRef Liste As MSForms.ListBox, ByRef Coll As Collection, ByRef Champ As Variant)   Dim ItemExiste As Boolean 'Indicateur permettant de savoir si l'élément fait déjà partie de la ListBox For Each Item In Coll 'On parcourt la collection If Liste.ListCount = 0 Then 'On vérifie si le ListBox est vide Liste.AddItem (Item(1).Champ) 'Si oui, on recopie le premier enregistrement Else ItemExiste = False 'On met à 0 le flag For i = 0 To Liste.ListCount - 1 'On parcourt le ListBox If Item.Champ = Liste.List(i) Then 'Si l'item est déja présent dans le ListBox ItemExiste = True 'On met à jour le flag Else End If Next i If ItemExiste = True Then 'Si l'item a été trouvé, on ne fait rien Else Liste.AddItem (Item.Champ) 'Sinon, on rajoute l'item au ListBox End If End If Next Item End Sub

---

J'obtiens un message d'erreur 438 : propriété ou methode non géré par cet objet, ça bloque sur la ligne 6.

Quelqu'un peut m'aider?

Merci d'avance

Bonjour
Peux-tu s'il te plait me dire où tu as pu voir l'existence d'un membre "champ" du membre Item d'une collection ? (car si tu l'utilises, ce ne saurait, n'est-ce-pas, être "à tout hasard" ;))

Bonjour,

Il y a un peu de hasard en effet, mais c'est tout de même issu d'une réflexion... Champ est juste le nom d'un argument que je veux passer à ma procédure, en l'occurence, il s'agit d'une des propriétés de ma classe personnalisée.

Pour être plus clair, ma collection regroupe l'ensemble des sinistres d'une flotte de véhicules lourds, cette collection est formée par des objets décrits par des modules de classe, au sein desquels est notamment renseignée la société victime du sinistre, en tant que propriété.

Je veux, dans le contrôle ListBox qui m'intéresse, extraire l'ensemble des sociétés concernées, en m'assurant qu'il n'y ait pas de doublon, d'où la procédure en question.

Après, je ne suis pas du tout spécialiste des modules de classe et il y a peut-être une manière nettement plus élégante de faire, je saurais d'ailleurs faire sans, avec beaucoup de copier coller et plus de temps, mais au final, j'aimerais arriver à utiliser cette application pour plusieurs clients, qui n'auront peut-être pas le même type de données, donc plus je rends la chose simple et paramétrable, mieux je m'en sortirai par la suite... Du coup, j'apprends en même temps que je crée, d'où les erreurs, tâtonnements, et questions aux spécialistes en dernier recours ;)

Salut.

Si tu utilises Item(1).Champ, c'est que les éléments constitutifs de ta collection, issus d'une classe personnalisée, exposent la propriété Champ. Le problème est que tu ne déclares pas Item dans la procédure. Tu devrais normalement le déclarer Dim Item As ... et préciser sa classe. Il faudrait nous donner la structure de la classe perso sur laquelle s'appuie Item, mais je doute fort que tu y aies une propriété Champ... ;)

Je ne suis pas certain d'avoir tout suivi, mais voici le code qui va chercher dans un fichier à part les données qui m'intéressent pour en faire une collection :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65

Public Function InfoSinistres() As Collection Dim result As New Collection   Dim TabConditions() As Boolean 'Déclare le tableau des conditions de l'accident qui viendra passer les valeurs à la collection Dim TabPropositions() As Boolean nbLignes = Sheets(1).Cells(2, 1).End(xlDown).Row 'Détermine le nombre d'enregistrements 'Set Sinistres = Nothing 'Efface une éventuelle collection existante Dim Sinistre As New clSinistre 'Crée un nouvel enregistrement For i = 2 To nbLignes 'Boucle de parcours des enregistrements de sinistres ReDim TabConditions(0 To 19) 'Détermine les dimensions du tableau des conditions de sinistres For j = 27 To 46 'Boucle de parcours des conditions TabConditions(j - 27) = (wbSource.Sheets(1).Cells(i, j) = "O") 'Remplissage du tableau de conditions en convertissant les valeurs en Booléen Next j ReDim TabPropositions(0 To 18) For j = 47 To 64 TabPropositions(j - 47) = (wbSource.Sheets(1).Cells(i, j) = "O") Next j Set Sinistre = New clSinistre With Sinistre .Numero = wbSource.Sheets(1).Cells(i, 1) .APM = wbSource.Sheets(1).Cells(i, 2) .Analysed = (wbSource.Sheets(1).Cells(i, 3) = "O") .Societe = wbSource.Sheets(1).Cells(i, 4) .Metier = wbSource.Sheets(1).Cells(i, 5) .Site = wbSource.Sheets(1).Cells(i, 6) .Immat = wbSource.Sheets(1).Cells(i, 7) .ImmatRemorque = wbSource.Sheets(1).Cells(i, 8) .DateSinistre = wbSource.Sheets(1).Cells(i, 9) .Annee = wbSource.Sheets(1).Cells(i, 10) .HeureSinistre = wbSource.Sheets(1).Cells(i, 11) .LieuSinistre = wbSource.Sheets(1).Cells(i, 12) .Client = wbSource.Sheets(1).Cells(i, 13) .Declaration = (wbSource.Sheets(1).Cells(i, 14) = "O") .Entretien = (wbSource.Sheets(1).Cells(i, 15) = "O") .Circonstances = wbSource.Sheets(1).Cells(1, 16) .NomConducteur = wbSource.Sheets(1).Cells(i, 17) .PrenomConducteur = wbSource.Sheets(1).Cells(i, 18) .DateNaissanceConducteur = wbSource.Sheets(1).Cells(i, 19) .AncienneteConducteur = wbSource.Sheets(1).Cells(i, 20) .Exploitant = wbSource.Sheets(1).Cells(i, 21) .AnalysePar = wbSource.Sheets(1).Cells(i, 22) .NbHeures = wbSource.Sheets(1).Cells(i, 23) .StatutConducteur = wbSource.Sheets(1).Cells(i, 24) .Milieu = wbSource.Sheets(1).Cells(i, 25) .GenreSinistre = wbSource.Sheets(1).Cells(i, 26) .Conditions = TabConditions .PropositionConducteur = TabPropositions .Responsabilite = wbSource.Sheets(1).Cells(i, 65) .Constat = wbSource.Sheets(1).Cells(i, 66) .DateDeclaration = wbSource.Sheets(1).Cells(i, 67) .UsageTelephone = (wbSource.Sheets(1).Cells(i, 68) = "O") .Evitable = (wbSource.Sheets(1).Cells(i, 69) = "O") .RaisonsEvitable = wbSource.Sheets(1).Cells(i, 70) .RaisonsInevitable = wbSource.Sheets(1).Cells(i, 71) .Consequences = (wbSource.Sheets(1).Cells(i, 72) = "O") .Modification = (wbSource.Sheets(1).Cells(i, 73) = "O") .Commentaires = wbSource.Sheets(1).Cells(i, 74) End With Erase TabConditions Erase TabPropositions result.Add Sinistre Next i   Set Sinistres = result Set result = Nothing

---

Ce que je cherche, c'est récupérer, pour chaque sinistre, les propriétés société, exploitant, site et métier, pour remplir des ListBox, avec une petite procédure qui permettra d'éviter les doublons (celle que j'ai présentée dans mon premier message).

Comme je me doute qu'il existe un moyen plus propre que de rajouter le même code pour chaque ListBox, j'ai voulu faire remplir les ListBox par une procédure à part, qui prendrait en arguments la collection concernée, ainsi que les propriétés qui m'intéressent (en plus de la ListBox à remplir). Le module Champ était, dans mon esprit, celui qui transmettrait le nom de la propriété qui m'intéresse.

En ce qui concerne chaque propriété, elles sont décrites dans mon module de classe avec Property Let et Property Get, très exactement comme dans le tuto que tu as fait sur les modules de classes, qui m'en a énormément appris (à quand les parties 2 et 3? ;) ).

J'espère que mes explications sont plus claires du coup