Discussion :

[maxbro]

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 :

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
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

[unparia]

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" )

[maxbro]

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

[Pierre Fauconnier]

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...

[maxbro]

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 :

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
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