Bonjour,

Je galère un peu avec ma listbox (je ne veux pas créer de boutons)
La procédure :
-Afficher les classeurs ouverts dans la liste => ok
- Apres selection du classeur, affichage des feuilles => ko

Si je met une boite de dialogue entre les deux, tout va bien, sinon
la deuxième fenêtre ne s'affiche pas ?

Pour afficher les feuilles (avant je fais la même chose pour les classeurs) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
With Uprn
    .ListBox1.List = Lwbk
    .Caption = "Liste des feuilles du classeur "
    .Show
    If .Caption = Empty Then
        GoTo fin
    End If
 
    Set Ws = Wk.Worksheets(.ListBox1.Text)
End With
dans l'usf :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Private Sub ListBox1_Click()
 Lb_click
End Sub
 
Sub Lb_click()
Uprn.Hide
End Sub
Ce n'est pas la première fois que j'ai ce problème, je ne sais plus comment faire.

En dernier recours, je mettrai un bouton !