Discussion :

[aalex_38]

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 !

[Godzestla]

aalex_38,

as-tu essayé avec

Code :

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

Me.Repaint

entre les 2 ?

(Sans garantie)

[aalex_38]

Merci, Godzestla, je crois que c'etait un problème résolu par un reboot de mon PC.

J'ai mis le code que tu m'as donné, au cas ou , j'avais oublié la commande.

Merci et Bonne journée.