Réafficher un listbox

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:

---

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:

---

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 !

:salut: aalex_38,

as-tu essayé avec

Code:

---

Me.Repaint

---

entre les 2 ?

(Sans garantie):aie:

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 :D, j'avais oublié la commande.

Merci et Bonne journée.