Stoker des Objet dans une Collection

Bonjour,

Je suis nouveau sur excel et le VBA et j'ai quelques notions de java,

Mon problème est assez simple mais je ne vois pas comment le résoudre, et je n'ai pas d'idée de comment y arriver d'où ce post sur ce forum

Donc le problème c'est que j'ai une Classe que j'ai créee et j'aurais aimé pouvoir avoir une "liste" d'objet de ma classe un peu à la manière d'une arrayList en Java, je pensais avoir trouvé grâce aux Collections mais j'obtiens une erreur d’exécution 438 avec le message "Propriété ou méthode non gérée par cet objet "

image

Je ne sais pas du tous comment faire et je vous demande de m'aider s'il vous plaît, pour comprendre ce que je fais mal et comment faire pour parvenir à mon but qui est : stocker des objets créer par nous même grâce aux Collections.

Voici le code :

Sub testClassClcModule()
    Set ListModule = New Collection
    Dim oModule As clsModule
    Dim oModule2 As clsModule
    Dim oModule3 As clsModule

    Set oModule = CreationModule("nom1", "composant", "type ", "libelle")
    Set oModule2 = CreationModule("nom2", "composant2", "type2 ", "libelle2")
    Set oModule3 = CreationModule("nom3", "composant3", "type3 ", "libelle3")

    ListModule.Add (oModule)
    ListModule.Add (oModule2)
    ListModule.Add (oModule3)

End Sub

Merci Beaucoup

Bonjour,

En l'absence de fichier joint ton code ne me parle guère.
Tout sur les Collections ici

A+

Merci pour ta réponse,

Je suis désolé je n'ai pas mon pc actuellement mais je te donnerais les fichiers demain

Bonne soirée

Bonjour,

Je vous transmets mon fichier en espérant que vous pourrez m'aider

Bonsoir,

Set ListModule = New Collection
istModule.Add New clsModule, "nom1"
ListModule.Add New clsModule, "nom2"
    ListModule.Add New clsModule, "nom3"
With ListModule("nom1")
    .nom = "nom1"
    .composant = "composant"
    .typ = "type"
    .libelle = "libelle"
End With

Merci beaucoup je tenterais demain

Merci beaucoup ça fonctionne

Rechercher des sujets similaires à "stoker objet collection"