Impossible de fermer un UserForm

[thomasdu40]

Bonjour,

J'ai un UserForm constitué de plusieurs boutons et d'une ListBox. Dans la ListBox se trouvent lister les feuilles qui seront imprimées (après sélection bien sur). Si par malheur je sélectionne une ou plusieurs feuilles dans cette ListBox et que je ferme aussitôt le UserForm en cliquant sur le bouton "Fermer", le programme est bloqué car je ne peux plus fermer le UserForm.

Si vous avez une réponse, merci.

Voici le code inclus dans la ListBox

Private Sub LbFeuilles_Change()
Application.ScreenUpdating = False
n = 0
For S = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(S) = True Then n = n + 1
Next S
LblNombreFeuilles.Caption = "Nbrs de Feuilles: " & n
End Sub

le code dans le bouton "Fermer"

Private Sub CommandButton1_Click()
Unload Me
End Sub

 

[Pierrot93]

Re : Impossible de fermer un UserForm

Bonjour,

commence peut être par enlever ceci :

Application.ScreenUpdating = False

après... sans voir le code complet dans le fichier difficile à dire....

bonne journée
@+

 

[thomasdu40]

Re : Impossible de fermer un UserForm

Bonjour Pierrot93,

C'est bon après avoir supprimé la ligne indiquée, le problème n'apparaît plus.

Merci.

Post clôturé.