OVH Cloud OVH Cloud

chargement listbox

1 réponse
Avatar
lulu debutant
bonjours à tous

j ai crée avec votre aide il y a qq jours des listbox et textbox( outils
controle) dans un doc word
mais lorsque j ouvre le document les elements constituants la liste des
listbox n apparaissent pas il faut que je rentre nimporte quelle lettre pour
que la liste soit visible .
comment faire pour que la liste soit actve directement?
j aimerais aussi afficher au demarrage dans la list box un texte d
information du style ""choisissez un rapport" ?

merci d avance
Private Sub rapports1_Change()

rapports1.List() = Array("Ambulance", "accident", "plainte")

If rapports1.Text = "Ambulance" Then
Documents.Open FileName:="C:\Documents and Settings\rapport1.doc",
ReadOnly:=True

End If
End Sub

1 réponse

Avatar
Anacoluthe
Bonjour !

'lulu debutant' nous a écrit ...
Private Sub rapports1_Change()
rapports1.List() = Array("Ambulance", "accident", "plainte")


Bien curieuse façon d'initialiser votre liste !!! :-)
Votre liste est vide, vous ne l'initialisez que lorsqu'on est dedans
et qu'on en modifie le résultat !?! Choisissez une autre méthode
par exemple dans un Private Sub Document_Open()
et gardez Private Sub rapports1_Change() pour exploiter le résultat ...

Anacoluthe
« Toute liste est perfectible »
- Ludwig WITTGENSTEIN