Pb pour récupérer une valeur dans une Listbox: Obligé de cliquer au moins une fois

**Seb_VB** · 11/04/2011, 13h56

Bonjour à tous,

Je vous explique tout d'abord rapidement le contexte:

Je suis actuellement en train de créer un outil de gestion documentaire.
J'ai un Userform avec trois listbox permettant de lister des documents selon: - Libellé du document
- Référence du document
- Nom du rédacteur
A chaque clic dans la listbox "Libellé" les Listindex des 2 autres listbox s'ajustent pour n'avoir qu'une seule ligne de sélectionnée:

Code :

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

1
2
3
Private Sub LB_libellé_Click() 
Processus.LB_pilote.ListIndex = Processus.LB_libellé.ListIndex  
Processus.LB_ref.ListIndex = Processus.LB_libellé.ListIndex

l'utilisateur sélectionne le Libellé du document qu'il souhaite ouvrir, puis en cliquant sur un bouton, un code permet de trouver le chemin d'accès a partir de la référence (donc 2ème listbox) en commençant avec ceci:

Code :

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

1
2
dim reference  
reference = Processus.LB_ref.Text

Mon problème:

Tant que je ne clic pas au moins une fois quelque part sur la 2ème listbox (Réference), la valeur récupérée est nulle, quelque-soit le listindex
Comment forcer la "pré-sélection" de la 2eme listbox, comment éviter d'avoir forcement à cliquer dessus?

Merci de votre aide
Sébastien

**CodeFacile** · 11/04/2011, 14h43

Bonjour,

Il y a une logique à ce fonctionnement : la fonction LB_libellé_Click ne s'exécute qu'à l'événement Click de cette Listbox.
Si tu veux que la fonction s'éxécute sur un évenement autre, à toi d'en choisir un.

Peut être faut il donner une valeur à l'initialisation ( selection par defaut du premier elément pour les trois listes ). Ou selection un événement Getfocus pour le userform....