thomasdu40
XLDnaute Occasionnel
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
le code dans le bouton "Fermer"
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
Code:
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"
Code:
Private Sub CommandButton1_Click()
Unload Me
End Sub