Discussion :

[speedster]

Bonjour,

Je souhaite remplir une ListBox au chargement de mon formulaire à partir d'une liste construite en dehors de ma form.

J'ai essayé de la passer en paramètres comme indiqué dans la FAQ avec Let Proprety mais je n'y arrive pas :

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
Option Explicit
 
Private m_lesSorties As New Collection
 
Public Sub Init(lesSorties As Collection)
    Sorties = lesSorties
End Sub
 
Property Let Sorties(lesSorties As Collection)
    Set m_lesSorties = lesSorties
End Property
 
 
'au chargement du formulaire, remplir la liste avec les sorties
Sub Form_Load()
    Dim uneSortie
 
    For Each uneSortie In m_lesSorties
        List1.AddItem uneSortie
    Next uneSortie
End Sub

J'ai aussi essayé de recopier la liste élément par élément mais ça ne fonctionne pas. J'ai une erreur de ce type :

Erreur d'exécution '440'
Erreur Automation

Ou

échec appel procédure distante

Ou

encore l'objet invoqué s'est déconnecté de ses clients

J'avoue ne rien y comprendre...

[jmfmarques]

Si tu es simplement bloqué sur ce sujet :
http://www.developpez.net/forums/sho...d.php?t=155652
par ce que "tu ne sais pas à quoi celà correspond", simplement, alors qu'il s'agit tout simplement de l'utilisation de Office et d'un renvoi vers son aide... Déleste donc ce sujet, il me semble !

[speedster]

Ok!

Au passage, vu que tu en parles, je n'ai jamais compris ce que voulait dire ce tag.

Merci d'avance.

Edit : Je ne trouve pas le bouton de délestage

[AlainTech]

Edit : Je ne trouve pas le bouton de délestage

Il n'y a pas de bouton.
Il faut aller dans "Outils de la discussion" au dessus du premier message.

Merci d'avoir répondu à ma demande.

Bonne programmation.

[speedster]

Pour en revenir à mon problème, après de multiples essais, je constate que le problème vient du fait que j'initialise ma ListBox à partir d'une Collection.

A chaque fois que j'essaye d'initialiser ma ListBox en parcourant ma Collection, ça plante.

Par ailleurs, comment fait-on pour cloner une Collection ou bien l'affecter à une autre variable?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim maCollection As Collection
Set maCollection = colObj

colObj étant une autre liste, à l'exécution ça plante aussi

[jmfmarques]

à partir d'une liste construite en dehors de ma form

construite comment et sous quelle forme (fichier texte ?, Base de données ?...)