Discussion :

[jlp65]

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 :

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

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 :

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

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 !!

[Jean-Philippe André]

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 :

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

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

aussi commence par inverser les lignes

Code :

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

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.

[jlp65]

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

[jlp65]

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 :

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

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 ...

[Jean-Philippe André]

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

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

[jlp65]

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