propriété Text ou Value de ListBox

Bonjour,
Je souhaite construire une zone de liste contenant la liste des classeurs Excel ouverts (en mettant en tête de liste le classeur actif, que je souhaite choisir par défaut)
Pour cela, j'utilise le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub UserForm_Initialize() ListClasseurs.AddItem (ActiveWorkbook.Name) For Each classeur In Workbooks If classeur.Name <> ActiveWorkbook.Name And classeur.Name <> "PERSONAL.XLSB" Then ListClasseurs.AddItem (classeur.Name) End If Next classeur x = ListClasseurs.ListCount x1 = ListClasseurs.List(2) nom_classeur = ListClasseurs.Text ListClasseurs.Selected(0) = True End Sub

---

Or l'avant-dernière instruction

Code:

---

nom_classeur = ListClasseurs.Text

---

ne fonctionne pas comme attendu : nom_classeur reste à vide (alors que les 2 lignes précédentes, ajoutées pour contrôle, me donnent bien les résultats corrects) ???
(par ailleurs, la propriété Value - quelle différence avec Text ? - ne fonctionne pas non plus)
Merci pour votre aide !!

Salut,

par défaut, une zone de liste n'a aucune valeur sélectionnée, que tu sois en mode sélection unique ou multiple.

La sélection de ta valeur se fait par exemple avec ta dernière ligne

Code:

---

1 2	nom_classeur = ListClasseurs.Text ListClasseurs.Selected(0) = True

---

aussi commence par inverser les lignes

Code:

---

1 2	ListClasseurs.Selected(0) = True nom_classeur = ListClasseurs.Text

---

Attention également à ne pas confondre .Text qui te retourne le texte affiché dans la listbox et .Value qui est la valeur (potentiellement) cachée.

Merci Jean-Philippe pour ta réponse.
Effectivement, ta réponse est logique (les lignes étaient bien dans l'ordre que tu préconises dans une première version de mon programme et, comme cela ne fonctionnait pas, j'ai fait plusieurs tentatives...)
Malheureusement, une fois l'ordre rétabli, cela a fonctionné une première fois ... mais plus au 2ème essai (renvoie une chaine vide) ??
La solution de ce problème n'étant pas urgente pour moi (et j'ai d'autres choses plus urgentes :(), je mettrai dans cette discussion la solution que j'aurais trouvée (en espérant ... :)), si je n'ai pas eu de réponse dans l'intervalle
Merci :D

Bonjour.
J'ai donc fait une nouvelle tentative aujourd'hui.
Le code a bien fonctionné cette fois-ci (je ne me suis pas hasardé à faire une 2ème tentative, le comportement d'Excel/VBA me semblant plutôt erratique !)
Mais une fois sélectionné le classeur Excel, je souhaiterais sélectionner un onglet de ce classeur.
Pour celà, j'utilise une 2ème zone de liste :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub ListClasseurs_Change() nom_classeur = Me.ListClasseurs.Text If nom_classeur <> "" Then Me.ListOnglets.Clear For Each onglet In Workbooks(nom_classeur).Sheets x = onglet.Name Me.ListOnglets.AddItem (onglet.Name) Next onglet Me.ListOnglets.Selected(0) = True End If x = Me.ListOnglets.ListCount x = Me.ListOnglets.Text End Sub

---

Et je retrouve un peu le même problème qu'initialement :
nom_classeur est bien renseigné, la variable x (= onglet.Name et, ensuite, ListOnglets.Countt) également. ... mais pas celle qui m'intéresse , à savoir ListOnglets.text qui reste désespérément vide ???!!:(

Je trouve ce comportement étrange.
Si quelqu'un pouvait me dépanner ...

Alors petite question pour savoir :
ta liste box est-elle en mode multiselect ?

Tu peux passer par Me.ListOnglets.Column(1,0)

Bonjour
Mes 2 listbox sont en Multiselect = 0-MultiSelectSingle
et, si je remplace Text par Column(1,0), cela me renvoie NULL :(

En remplaçant

Code:

---

MaListBox.text

---

par

Code:

---

MaListBox.List(MaListBox.ListIndex)

---

ça marche nickel !!:D
Un peu étrange, quand même: pourquoi la propriété Text ne fonctionne-t-elle pas comme on pourrait le prévoir ?