Pb de fermeture userform

[glm]

Bonsoir à tous et à toutes,
J'ai un petit soucis pour fermer un userform
Voici le code
Private Sub fermer()
UF_Impression.Hide
End Sub
'appuie sur un checkbox
Private Sub CB_mensuel_Click()
With ActiveSheet 'pour la fenêtre active
.PageSetup.PrintArea = '$A$1:$AI$28'
.PageSetup.Orientation = xlLandscape
.PrintPreview
End With
fermer 'appel procédure
End Sub
Il fait la zone d'impression et affiche l'apercu
mais ne ferme l'UF
Merci pour vos commentaires
A+

 

[Bricofire]

Bonsoir glm,

Je ne sais pas si j'ai bien compris ce que tu veux, mais Hide masque un USF, mais ne le ferme pas pour ce faire, il faut employer Unload USF (cf aide VBA), attention, tu vides les données.

bonne soirée,

Brico

 

[glm]

Bonsoir,
que ce soit unload ou hide
l'userform ne se ferme pas...!
merci pour l'idée
A+

 

[glm]

Je viens de trouver après de multiples tentatives
Voici la modif
Private Sub CB_mensuel_Click()
fermer 'appel procédureWith ActiveSheet 'pour la fenêtre active
.PageSetup.PrintArea = '$A$1:$AI$28'
.PageSetup.Orientation = xlLandscape
.PrintPreview
End With
End Sub

Je demande la fermeture de l'uf avant de faire la zone d'impression et l'apercu
Avant je demandais la fermeture en fin de proc
Désolé et merci Bricofire
Bon courage à tous
car il y a encore beaucoup de travail...dur, dur
Bonne soirée