User se fige code pour imprimer une sélection

Yann71 à dit:

Bonjour la com, comment allez-vous suite à cette situation peut évidente.
J'ai un petit problème dont je n'arrive à trouver la solution. J'ai un bouton dans un Userform qui me permet de pouvoir imprimer une sélection déterminée d'une feuille. Lorsque l'user s'ouvre et que l'on clic sur "IMPRIMER", c'est là que les problèmes surgissent, l'user reste figé sur ma fenêtre de l'aperçu avant impression. Je suis donc obligé de fermer le classeur par le gestionnaire des tâches. Le rond à un code pour imprimer la sélection celui-ci fonctionne parfaitement, et le rectangle ouvre un user ou se trouve un bouton avec le même code que le rond. Merci pour votre futur aide.

Cliquez pour agrandir...

Yann71 à dit:

Bonjour, merci pour tes solutions. Ce qui concerne le fait de fermer mon user c'est impossible il reste figé et de ce qui concerne "ShowModal" il est déjà sur "False". Regarde l'exemple sur mon fichier joint

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour Yann71, le forum

En fait il faut décharger ton formulaire

VB:

Private Sub CommandButton1_Click()
    Dim n%
    With ActiveSheet
        n = WorksheetFunction.Max(.Columns("A"))
        .PageSetup.PrintArea = "b1:D13"
        Unload UserForm1  'Décharge le formulaire
        .PrintPreview
    End With
End Sub

Cordialement

Cliquez pour agrandir...

Jacky67 à dit:

Heu….
Tu est certain ??????????
Moi j'ai bien regarder

Cliquez pour agrandir...